Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил

type
  Rec = record
    lastName : string[25];
    posit : string[25];
  end;
 
var
  n, i : Byte;
  f : file of Rec;
  g : Text;
  s : string[25];
  t : Rec;
 
begin
  Write('Введите количество работников :'); ReadLn(n);  
  Assign(f, 'fff'); ReWrite(f);
  for i := 0 to n - 1 do
  begin
    Write('Введите фамилию :'); ReadLn(t.lastName);
    Write('Введите должность :'); ReadLn(t.posit);
    Write(f, t); 
  end;
  Close(f); Reset(f);
  Assign(g, 'ggg'); ReWrite(g);
  Write('Введите должность для поиска :'); ReadLn(s);
  While not Eof(f) do
  begin
    Read(f, t);
    if (t.posit = s) then
      WriteLn(g, t.lastName, #9, t.posit);
  end;
  Close(f); Close(g);
end.

Type employees=Record
      Surname:string[20];
      Post:string[30];
     End;
Var f,g:text;
    st:employees;
    s,ps:string;
    count:integer;
Begin
    Assign(f,'in.txt');Reset(f);
    write('Должность сотрудника: ');readln(ps);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      st.Surname:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      st.Post:=s;
      if ps=st.Post then 
      Begin
        writeln(g,st.Surname);
        inc(count);
      End;
    End;
    if count=0 then writeln(g,'Нету сотрудников с заданной должностью');
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.