Question

Помогите написать код программы в Pascal для задачи:
Дан символьный тип f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: фамилия_имя_отчество, фамилия_имя_отчество... записать эти сведения в файле g, используя образец: имя_отчество_фамилия, имя_отчество_фамилия...

Answer 1

type
  tFIO=record
    fam,im,otch:string
  end;
var
  f:tFIO;
  s:string;
  g:Text;
  i,n:integer;
begin
  Assign(g,'IOF.txt'); Rewrite(g);
  Write('Количество сотрудников: '); Readln(n);
  for i:=1 to n do
  begin
    With f do
    begin
      { сформировать запись типа f }
      Writeln('*** Сотрудник № ',i,' ***');
      Writeln('Фамилия: '); Readln(s); fam:=s;
      Writeln('Имя: '); Readln(s); im:=s;
      Writeln('Отчество: '); Readln(s); otch:=s;
      { занести данные в файл }
      Writeln(g,im,' ',otch,' ',fam)
    end
  end;
  Close(g)
end.