Алгоритм грубой силы или алгоритм Бойера-Мура

uses crt;
type mas=array[1..500] of char;
procedure BM(hs,ns:mas;lh,ln:integer;var result:integer);
var i, j, k      : byte;
    nt : array[char] of byte;
begin
if ln < lh then
 begin
  for i:=0 to 255 do
  nt[chr(i)]:=ln;
  for i:=1 to ln-1 do
  nt[ns[i]]:=ln-i;
  i:=ln;
  j:=i;
  while (j>0) and (i<=lh) do
   begin
    j:=ln;
    k:=i;
    while (j>0) and (hs[k]=ns[j]) do
     begin
      dec(k);
      dec(j);
     end;
    i:=i+nt[hs[i]];
   end;
  if k>lh-ln then  result:=-1
  else result:=k+1;
 end
else result:=-1;
end;
procedure Vvod(var s:mas;var n:integer;c:string);
var i:integer;
    b:char;
begin
writeln(c);
write('Размер=');
readln(n);
writeln('Введите ',c);
i:=0;
repeat
inc(i);
b:=readkey;
write(b);
s[i]:=b;
if i=n then writeln;
until i=n;
writeln;
write('Press Enter');
readln
end;
var st,sl:mas;
    nst,nsl,i:integer;
    c:char;
begin
clrscr;
Vvod(st,nst,'текст');
Vvod(sl,nsl,'слово');
BM(st,sl,nst,nsl,i);
write('Результат=',i);
readln
end.