Помогите срочно, пожалуйста!

[Krugan]

Помогите пожалуйста мне исправить программу (ошибка выделена красным, но она может быть не одна). Буду благодарен!

label bye;
var
f: text;
obr: string[15];
n: integer;
fam: string[15];
name: string[15];
tel: string[9];
begin
writeln('Поиск в телефонном .справочнике');
Assign(f,'a:\phone.txt');
reset (f);
if IOResult <> 0 then
begin
writeln(' a:\phone.txt');
goto bye;
end;
repeat
write('Фамилия ->') ;
readln(obr);
if Length(obr) <> 0 then
begin
reset(f);
n:=0;
while not EOF(f) do begin
readln(f,fam);
readln(f,name) ;
readln(f,tel);
if fam = obr then
begin
writeln(fam,' ',name, ' ',tel);
n:=n+l;
end;
end;
if n = 0 then writeln('Сведений о ' ,obr,' нет.');
end;
until Length(obr) = 0;
bye:
writeln('Для завершения работы нажмите.');
readln;
end.

[ZX Spectrum-128]

Компилятор абцпаскаль?
Идти сюда тогда
http://programmersforum.ru/showthread.php?t=261213