Записать сведения о сотрудниках учреждения в файле g, используя образцы

program test;
uses crt;
 
type  
inf=record 
imya:string[10];
fam:string[15];
otch:string[15];
end;
var
f:text;
g:text;
i,c:integer;
b:string;
m:array[1..15] of inf;
 begin
assign(f,'f.txt');
assign(g,'g.txt');
rewrite(f);
writeln('Введите количество сотрудников:');
readln(c);
for i:=1 to  c do
 begin
writeln('Информация о сотруднике:'); 
writeln('Введите фамилию:');
readln( m[i].fam);
writeln('Введите имя:');
readln(m[i].imya);
writeln('Введите отчество:');
readln(m[i].otch);
close(f);
reset(f);
while not eof(f) do
readln(f,b);
write(b);
 
rewrite(g);
write(g,f);
readln(g);
close(g);
close(f);
 
 
 
 end;
 end.

type inf=record
    imya:string[10];
    fam:string[15];
    otch:string[15];
  end;
var f,g:textfile;
    i,c:integer;
    b:string;
    m:array[1..15] of inf;
begin
  writeln('Введите количество сотрудников:');
  assign(f,'f.txt');
  assign(g,'g.txt');
  ReWrite(g);
  rewrite(f);
  readln(c);
  for i:=1 to c do
    begin
      writeln('Информация о ',i,'-ом сотруднике:');
      writeln('Введите фамилию:');
      readln(m[i].fam);
      write(f, m[i].fam,' ');
      write(g, m[i].fam,' ');
      writeln('Введите имя:');
      readln(m[i].imya);
      write(f,m[i].imya,' ');
      write(g,copy(m[i].imya,1,1),'.');
      writeln('Введите отчество:');
      readln(m[i].otch);
      writeln(f,m[i].otch);
      writeln(g, copy(m[i].otch,1,1),'.');
    end;
  close(g);
  close(f);
end.