Даны два символьных файла одинакового размера. Произвести обмен информацией между ними. - Turbo Pascal

uses crt;
var f,g:file of char;
    n,i:integer;
    a,b:char;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько символов  записать в файлы n=');
readln(n);
for i:=1 to n do
 begin
  a:=chr(65+random(26));
  b:=chr(65+random(26));
  write(f,a);
  write(g,b);
 end;
writeln('Содержание исходного файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a);
 end;
writeln;
writeln('Содержание исходного файла G:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a);
 end;
writeln;
reset(f);
reset(g);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  seek(g,i);
  read(g,b);
  seek(f,i);
  write(f,b);
  seek(g,i);
  write(g,a);
 end;
writeln('Содержание файла F после обмена:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a);
 end;
writeln;
writeln('Содержание G после обмкна:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a);
 end;
close(f);
close(g);
readln
end.