Поиск в телефонном справочнике

{ Поиск в телефонном справочнике }
label bye;
var
f: text; { текстовый файл } 
obr: string[15]; { фамилия для поиска }
n: integer; { кол-во записей, удовлетворяющих запросу }
fam: string[15]; { фамилия } 
name: string[15]; { имя } 
tel: string[9]; { номер телефона } 
begin
writeln('Поиск в телефонном .справочнике'); 
Assign(f,'D:\phone.txt');
reset (f); { откроем файл для чтения } 
begin
writeln('Файл D:\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+1; 
end; 
end; 
if n = 0 then writeln('Сведений о ' , obr,' нет.'); 
end;
until Length(obr) = 0; 
bye:
writeln('Для завершения работы нажмите <Enter>.'); 
readln; 
end.

var f: text;
   obr,fam,name: string[15];
   tel: string[9];
   n: integer;
begin
writeln('Поиск в телефонном .справочнике');
if fileexists('D:\phone.txt') then
 begin
  Assign(f,'D:\phone.txt');
  reset (f)
 end
else
 begin
  writeln('Файл D:\phone.txt не доступен');
  exit;
 end;
write('Фамилия ->') ; readln(obr);
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:=1;
   end;
 end;
if n = 0 then writeln('Сведений о ' , obr,' нет.');
close(f)
end.