Поменять местами содержимое двух файлов

procedure TForm1.Button2Click(Sender: TObject);
var
 a:char;
 f1,f3:file of char;
 n,i:integer;
begin
  randomize;
AssignFile(f1, 'my1');
  rewrite(f1);
  n:=200;
  for i:=1 to n do
   begin
    a:=char(random(255));
    write(f1,a);
   end;
  closefile(f1);
  AssignFile(f3, 'my3');
  rewrite(f3);
  closefile(f3);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 a:char;
 f1,f2,f3:file of char;
begin
  AssignFile(f1, 'my1');
  reset(f1);
  AssignFile(f2, 'my2');
  reset(f2);
  AssignFile(f3, 'my3');
  reset(f3);
   while not Eof(f1) do
   begin
     reset(f1,a);
     reset(f3,a);
   end;
   CloseFile(f1);
  CloseFile(f3);
  while not Eof(f2) do
   begin
     reset(f2,a);
     reset(f1,a);
   end;
    CloseFile(f1);
  CloseFile(f2);
  while not Eof(f3) do
   begin
     reset(f3,a);
     reset(f2,a);
   end;
  CloseFile(f2);
  CloseFile(f3);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
 a:char;
 f2:file of char;
 n,i:integer;
begin
  randomize;
AssignFile(f2, 'my2');
  rewrite(f2);
  n:=200;
  for i:=1 to n do
   begin
    a:=char(random(255));
    write(f2,a);
   end;
  closefile(f2);
end;
end.