Добавить к первому файлу содержимое второго файла, а ко второму файлу — содержимое первого

uses crt;
var f,g:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл 1 n=');
read(n);
for i:=1 to n do
 begin
  a:=random(20);
  write(f,a);
 end;
write('Сколько чисел записать в файл 2 n=');
read(n);
for i:=1 to n do
 begin
  n:=random(20)+30;
  write(g,n);
 end;
reset(f);
writeln('Содержание файла 1');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
n:=filesize(f);//количество компонент в 1 изначально
reset(g);
writeln('Содержание файла 2');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
  seek(f,filesize(f));
  write(f,a);//дописываем 2 в 1
 end;
writeln;
for i:=0 to n-1 do //переписываем n компонент из 1 во 2
 begin
  seek(f,i);
  read(f,a);
  seek(g,filesize(g));
  write(g,a);
 end;
seek(f,0);
writeln('Содержание файла 1+2');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
seek(g,0);
writeln('Содержание файла 2+1');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(f);
close(g);
end.