Типизированные файлы. Файл содержит номера телефонов сотрудников учреждения

uses crt;
 
type sotrudniki = record
     fio:  string[15];
     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(fio);
         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 fio=z then
              begin
              writeln(fio: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-поиск по фамилии');
readln(r);
case r of
1: Vvod (f);
2: Poisk(f);
else r:=0;
end;
until r=0;
end.