Переписать с сохранением порядка следования элементы первого файла во второй, а элементы второго файла в первый

uses crt;
var f,g,p:file of char;
    c:char;
    n,i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
assign(p,'fileP');
rewrite(p);
write('Размер файлов n=');
readln(n);
writeln('Введите в файл F символы:');
for i:=1 to n do
 begin
  readln(c);
  write(f,c);
 end;
clrscr;
writeln('Введите в файл G символы:');
for i:=1 to n do
 begin
  readln(c);
  write(g,c);
 end;
clrscr;
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,c);
  write(p,c);{переписываем файл в буферный файл}
  write(c,' ');
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
rewrite(f);
while not eof(g) do
 begin
  read(g,c);
  write(c,' ');
  write(f,c);{переписываем втрой в первый}
 end;
writeln;
close(g);
close(f);
reset(p);
rewrite(g);
while not eof(p) do
 begin
  read(p,c);
  write(g,c);{переписываем из буфера во второй}
 end;
erase(p);{уничтожаем буфер}
writeln;
writeln('Файлы после обмена:');
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,c);
  write(c,' ');
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
while not eof(g) do
 begin
  read(g,c);
  write(c,' ');
 end;
readln
end.