Ошибка в программе(проверка диапазона) - Turbo Pascal

Формулировка задачи:

Нужна помощь, исправить ошибку, вылетает 201 ошибка проверки диапазона. Прямой поиск работает отлично, а КМП выдает эту ошибку. Вот само условие: В текстовом файле найти сколько слов в тексте содержит заданное слово используя метод прямого поиска и КМП. Для каждого метода подсчитать число сравнений. В приложении скрин ошибки и файл.

type pref = array [0..255] of integer;
 
procedure prefix(s:string; var v:pref);
var k,i:integer;
begin
     for i:=1 to length(s)-1 do
     begin
          k:=v[i-1];
while (k>0) and (s[k+1]<>s[i+1]) do k:=v[k-1];
if (s[k+1]=s[i+1]) then k:=k+1;
v[i]:=k;
end;
end;

function kmt(s:string; t:string; var sravn:integer):integer;
var f:pref;
    index,k,i:integer;
begin
     sravn:=0;
     index:=-1;
     prefix(s,f);
     k:=0;
     for i:=1 to length(t) do
     begin
          while (k>0) and (s[k+1]<>t[i]) do
                begin
                     k:=f[k-1];
                     sravn:=sravn+1;
                end;
          if (s[k+1]=t[i]) then
             begin
                  k:=k+1;
                  sravn:=sravn+1;
             end;
          if (k = length(s)) then
          begin
               index:=i-length(s)+1;
               break;
          end;
     end;
     kmt:=index;
end;
 
function pryam(s:string; t:string; var sravn:integer):integer;
var index, k, i:integer;
begin
     index:=-1;
     sravn:=0;
     for i:=1 to length(t)-length(s)+1 do
     begin
          for k:=1 to length(s) do
          begin
               sravn:=sravn+2;
 
               if (s[k]<>t[i+k-1]) then
                  break;
 
               if (k=length(s)) and (s[k]=t[i+k-1]) then
               begin
                    index:=i;
                    break;
               end;
          end;
               if (index<>-1) then break;
     end;
     pryam:=index;
end;
 
var f: text;
    word,s:string;
    sravn,sum,method,p,count:integer;
begin
     sum:=0;
     count:=0;
 
     write('input method 0 - pryamoi poisk, 1 - kmt: ');
     readln(method);
 
     if (method>1) then exit;
 
     write('Input word to find:');
     readln(word);
 
     assign(f,'file.txt');
     reset(f);
     repeat
          readln(f,s);
          p:=-1;
          repeat
                    if (method=0) then p:=pryam(word,s,sravn);
                    if (method=1) then p:=kmt(word,s,sravn);
                    if (p>-1) then
                    begin
                         count:=count+1;
                         s:=copy(s, p+length(word), length(s)-p-length(word)+1);
                    end;
                    sum:=sum+sravn;
          until (p =-1);
     until (eof(f));
     close(f);
     writeln('slovo "',word, '" naideno ',count,' raz, sdelano ', sum, ' sravnenij');
readln;
end.

Решение задачи: «Ошибка в программе(проверка диапазона)»

Листинг программы

     sravn:=0;
     index:=-1;
     FillChar(f, sizeof(f), 0); { <--- добавь эту строку }
     prefix(s,f);

Объяснение кода листинга программы

Переменная sravn инициализируется значением 0.
Переменная index инициализируется значением -1.
Строка кода FillChar(f, sizeof(f), 0) заполняет память, выделенную под структуру f, нулями. Это необходимо для корректной работы последующих операций.
Функция prefix(s,f) вызывается без аргументов. Эта функция не определена в представленном коде, поэтому ее назначение и поведение неизвестны. Возможно, она выполняет какую-то проверку переменной sravn.
Код не содержит вложенных списков.