Имеется два файла с числами. Поменять местами их содержимое (использовать вспомогательный файл)

Uses crt;
Procedure WriteFile(t: File of Integer);
var k: Integer;
begin
  Reset(t);
  Seek(t,0);
  While not Eof(t) do
  begin
    Read(t,k);
    Write(k,' ');
  end;
end;
 
Var
  f1,f2,buf: File of Integer;
  i,n,x: Integer;
BEGIN
Write('Сколько чисел записать в 1 файл? ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
For i:=1 to n do
Write(f1,Random(100));
Writeln('1 файл:');
WriteFile(f1);
Writeln;
Write('Сколько чисел записать во 2 файл? ');
Readln(n);
Assign(f2,'2.dat');
Rewrite(f2);
For i:=1 to n do
Write(f2,Random(100));
Writeln('2 файл:');
WriteFile(f2);
Assign(buf,'buf.dat');
Rewrite(buf);
Reset(f1);
While not Eof(f1) do
begin
  Read(f1,x);
  Write(buf,x);
end;
Rewrite(f1);
Reset(f2);
Seek(f2,0);
While not Eof(f2) do
begin
  Read(f2,x);
  Write(f1,x);
end;
Rewrite(f2);
Seek(buf,0);
While not Eof(buf) do
begin
  Read(buf,x);
  Write(f2,x);
end;
Writeln;
Writeln('Файлы после преобразования:');
Writeln('1 файл');
WriteFile(f1);
Writeln;
Writeln('2 файл');
WriteFile(f2);
Close(f1);
Close(f2);
Close(buf);
Erase(buf);
END.