Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1

uses crt;
var f,g,p:file of real;
    r:real;
    c:char;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
assign(p,'fileP');
rewrite(p);
writeln('Введите в файл F действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
write(f,r);
until r=0;
clrscr;
writeln('Введите в файл G действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
write(g,r);
until r=0;
clrscr;
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(p,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
rewrite(f);
while not eof(g) do
 begin
  read(g,r);
  write(r:0:2,' ');
  write(f,r);
 end;
writeln;
close(g);
close(f);
reset(p);
rewrite(g);
while not eof(p) do
 begin
  read(p,r);
  write(g,r);
 end;
erase(p);
writeln;
writeln('Файлы после обмена:');
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
while not eof(g) do
 begin
  read(g,r);
  write(r:0:2,' ');
 end;
readln
end.

uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of real;
    i,j,k,n:integer;
    f:text;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 for j:=1 to n do
  a[i,j]:=random(50);
Writeln;
Assign(f,'st.txt');
Rewrite(f);
for i:=1 to n do
 begin
  for j:=1 to n do
   Write(f,a[i,j]:4);
  Writeln(f);
 end;
close(f);
Assign(f,'st.txt');
Reset(f);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    Read(f,a[i,j]);
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
close(f);
for i:=1 to n do
 for j:=1 to n do
  if i mod 2=0 then
   begin
    k:=k+1;
    b[k]:=1/(sqr(i)+2);
   end
  else
   begin
    k:=k+1;
    b[k]:=1/i;
   end;
Writeln('Mass B: ');
for i:=1 to k do
 Write(b[i]:6:2);
Readln;
end.