#pas
if SubStr[i] <> S[Ps - lp + i] then
begin
  Ps := Ps + 1;
  Break;
end

#pas
if SubStr[i] <> S[Ps - lp + i] then
begin
  Ps := Ps + BMT[ord(S[ps - lp + i])] - i + 1;
  Break;
end