Определить фамилии сотрудников, которые являются абонентами указанной телефонной станции

uses crt;
 
type sotrudniki = record
     fam:  string[10];
     aul:  string[15];
     nod:  string[5];
     nok:  string[5];
     tel:  string[9];
     end;
 
var  f:file of sotrudniki; r: byte;
 
procedure Vvod (var ff: file of sotrudniki);
var  i,n: integer;
     s: sotrudniki;
begin
clrscr;
rewrite(ff);
write('Количество сотрудников:');
readln(n);
writeln('Внесите телефоны сотрудников: ');
for i:=1 to n do
    with s do
         begin
         write('Фамилия: '); readln(fam);
         writeln('Адрес: ');
         write('Улица: '); readln(aul);
         write('Номер дома: '); readln(nod);
         write('Номер квартиры: '); readln(nok);
         repeat
         write('Телефон (000-00-00): '); readln(tel);
         until (length(tel)=9) and ((tel[4]='-') and (tel[7]='-'));
         write(ff,s);
         end;
close(ff);
writeln('Данные занесены в файл');
writeln('Нажмите Enter для продолжения');
readln;
end;
 
procedure Poisk(ff: file of sotrudniki);
var  s: sotrudniki;
     z: string;
     k: integer;
begin
clrscr;
reset(ff);
writeln('Поиск номера телефона по фамилии');
write('Укажите фамилию: '); readln(z);
while not (eof(ff)) do
      begin
      read(ff,s);
      with s do
           if fam=z then
              begin
              writeln(fam:15,' ',tel,' ',aul,', ',nod,', ',nok);
              inc(k);
              end;
      end;
close(ff);
if k=0 then writeln('Нет данных о сотруднике');
writeln('Нажмите Enter для продолжения');
readln;
end;
 
procedure PoiskStUl(ff: file of sotrudniki);
var  s: sotrudniki;
     u,st: string;
     k: integer;
begin
clrscr;
reset(ff);
writeln('Поиск номера телефона по улице и станции');
write('Укажите улицу: '); readln(u);
write('Укажите номер станции (3 первых цифры телефона): '); readln(st);
while not (eof(ff)) do
      begin
      read(ff,s);
      with s do
           if (copy(tel,1,3)=st) and (aul=u) then
              begin
              writeln(fam:15,' ',tel);
              inc(k);
              end;
      end;
close(ff);
if k=0 then writeln('Нет данных о сотрудниках');
writeln('Нажмите Enter для продолжения');
readln;
end;
 
begin
assign(f,'C:\BDsotrudniki.dta');
r:=1;
repeat
clrscr;
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-поиск по фамилии');
writeln('3-поиск по улице и телефонной станции');
readln(r);
case r of
1: Vvod (f);
2: Poisk(f);
3: PoiskStUl(f);
else r:=0;
end;
until r=0;
end.