Алгоритм Кнута — Морриса — Пратта. Ошибка!! Паскаль

[WizzzIDizzzI]

Помогиет найти ошибку.
Задание:
1. Найти самое длинное совпадение символов(включая пробелы) из 1-го предложения со 2-м.
2. Подсчитать количество сравнений символов образа с текстом.
Алгоритмом Кнута — Морриса — Пратта
Код:
uses crt;

var
sSentence1,sSentence2,sWord,sFindWo rd:string;

iCountKnutMorrisPratt:integer;
bFoundWord:boolean;

i,j,k:integer;

function KnuthMorrisPratt( const sNeedle, sHayStack : string ) : Integer;
var
F: array[byte] of Integer;
k, i, m: integer;
begin
m := 0;
KnuthMorrisPratt := m;
F[1] := 0;
k := 0;
for i := 2 to Length(sNeedle) do
begin
while (k > 0) and (sNeedle[k+1] <> sNeedle[i]) do
k := F[k];
if sNeedle[k+1] = sNeedle[i]
then
Inc(k);
F[i] := k;
end;
k := 0;
for i := 1 to Length(sHayStack) do
begin
while (k > 0) and (sNeedle[k+1] <> sHayStack[i]) do
begin
inc(m);
KnuthMorrisPratt := m;
k := F[k];
end;
if sNeedle[k+1] = sHayStack[i]
Then
Inc(k);
if k = Length(sNeedle)
Then
begin
bFoundWord := true;
sFindWord := sNeedle;
Break;
end;
end;
end;

{////////////////////////////////////////////////////////}

begin
clrscr;

sSentence1 := 'sent sentence seniu';
sSentence2 := 'sents sent sentes sentenc';

iCountKnutMorrisPratt := 0;
bFoundWord := false;
i := length(sSentence1);
sFindWord := '';

repeat
begin
j := 1;
repeat
begin
sWord := '';
for k := 0 to i-1 do
begin
sWord := sWord + sSentence1[j+k];
end;
iCountKnutMorrisPratt := iCountKnutMorrisPratt + KnuthMorrisPratt(sSentence2, sWord);
j := j+1;
end;
until(bFoundWord or (j+i-1>length(sSentence1)));
i := i-1;
end;
until(bFoundWord or (i=0));

writeln('KnuthMorrisPratt');
writeln('Max word in sentences: "', sFindWord, '"');
writeln('Number of comparisons = ',iCountKnutMorrisPratt);
writeln('');

readln;
end.

[KobolD]

Смотри как я умею

writeln('KnuthMorrisPratt');
writeln('Max word in sentences: "', sFindWord, '"');

а ты так можешь?

P.S. добавляй коментарии в код, думаешь интересно гадать что ты хотел сделать конкретной процедурой или циклом.