В текстовом файле хранится список служащих. Для каждого служащего указаны фамилия и инициалы

const n=1000;
type anketa=record
 fio:string[50];
 doljn:string[50];
 god_rab:integer;
 oklad:integer;
end;
type
  mas = array[1..n] of  anketa;
 var slug:mas;
 f:text;
 
  procedure Vvod;
  var i,k:integer;
  begin
   writeln('введите количество  записей');
   readln(k);
   for i:=1 to k do
     with slug[i] do
     begin
     writeln('введите сведения о ',i,'-м служащем');
     writeln('введите фамилию,имя и отчество');
     readln(fio);
     writeln('введите должность');
     readln(doljn);
     writeln('введите год поступления');
     readln(god_rab);
     writeln('введите оклад');
     readln(oklad);
     writeln(' ');
   end;
    writeln('ввод закончен');
assign(f,'G:\kursovaya.txt');
 rewrite(f);
  for i:=1 to k do
   begin
   write(f,i,'-й служащий: ');
 write(f,slug[i].fio,',');
 write(f,slug[i].doljn,',');
 write(f,slug[i].god_rab,',');
 write(f,slug[i].oklad,',');
 end;
  close(f);
  end;
 
procedure  Poisk;
       var r,l:string;
       i:integer;
       log:boolean;
       begin
       log:=false;
       write('Введите имя файла:');
       readln(l);
        assign(f,l);
        reset(f);
 
      writeln('введите фамилию');
      readln(r);
      while Not EOF(f) do
       begin
       i:=i+1;
       readln(f,slug[i].fio);
       if slug[i].fio=r then
        begin
         writeln('Данные: ');
         writeln(slug[i].doljn,',',slug[i].god_rab,',',slug[i].oklad);
         log:=true;
        end;
        end;
       if log=false then
        begin
        writeln('Нет в базе.');
        readln;
        i:=0;
        end;
       close(f);
   end;      
begin
Vvod;
Poisk;
end.