Help me, please

Никак не пойму, что в этой программке не так. Не работает и все тут
program KMP_Find;
поиск маски в тексте, алгоритм Кнута-Мориса-Пратта
uses crt;
const n=840;
var a:array [1..n] of char;
mask:array [1..n] of ^char;
i,j,sv,pos,my,w:integer; sv-число совпадений,
pos-позиция первой буквы маски в тексте,
my-число сравнений,
w-длинна динамическрй маски
fx:text; файл с текстом
f:boolean; есть совпадения или нет
label m,m2;
begin
clrscr;
чтение текста из файла и вывод на экран Assign(fx,'c:\bp\bin\programm\linefind\reset.txt'); $I-
reset(fx);
$I+
if IOresult<>0 then
begin
writeln('Ошибка открытия файла');
halt;
end;
writeln('Текст:');
for i:=1 to n do
begin
read(fx,a);
write(a);
end;
w:=1;
writeln; обработка ввода маски поиска writeln('Введите маску поиска и нажмите <Enter>');
for i:=1 to n do
begin
new(mask);
read(mask^);
if ord(mask^)=13 then
begin
dispose(mask);
mask:=nil;
goto m;
end;
inc(w);
end;
m:
if w=1 then если маска не задана
begin
writeln('Маска не введена');
readln;
halt;
end;
i:=1; поиск совпадений
j:=1;
f:=false;
sv:=0;
my:=0;
Dec(w);
for i:=1 to n do
begin
Inc(my);
if a=mask[j]^ then
begin
if j=1 then
begin
если есть совпадения, то при следующем совпадении перескакиваем несколько символов i:=i+sv;
j:=j+sv;
end;
Inc(j); f:=true; Inc(sv);
end
else
begin f:=false; j:=1;
end;
if (j=w) and f then
begin
pos:=i-w+1;
goto m2;
end;
end;
m2:
j:=j+2-w; Обработка результатов
writeln;
if f then
writeln('Позиция: ',pos,'. Длинна маски: ',w,'. Длинна текста: 840 символов.',' ',my) else
writeln('Совпадений не найдено');
readln;
Close(fx);
for i:=1 to w do удаление динамического массива маски
dispose(mask);
end.