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

Uses crt;
Type
  Tfile=File of Integer;
Procedure OutputFile(Var f: Tfile);
Var i,x: Integer;
begin
  For i:=0 to Filesize(f)-1 do
  begin
    Seek(f,i);
    Read(f,x);
    Write(x,' ');
  end;
  Writeln;
end;
{---------------------}
Function MaxElemIndex(Var f: Tfile): Integer;
Var i,x,m,y: Integer;
begin
  Seek(f,0);
  Read(f,x);
  m:=0;
  For i:=0 to Filesize(f)-1 do
  begin
    Seek(f,m);
    Read(f,y);
    Seek(f,i);
    Read(f,x);
    If x>y Then m:=i;
  end;
  MaxElemIndex:=m;
end;
{---------------------}
Procedure SwapFiles(Var file1,file2: Tfile);
Var i,x: Integer;
begin
  For i:=0 to Filesize(file2)-1 do
  begin
    Seek(file2,i);
    Read(file2,x);
    Write(file1,x);
  end;
end;
Var
  f1,f2,h: Tfile;
  i,n1,n2,x: Integer;
BEGIN
Clrscr;
Assign(f1,'fail1.dat');
Assign(f2,'fail2.dat');
Write('Vvedite kol-vo komponentov v 1 faile: '); Readln(n1);
Write('Vvedite kol-vo komponentov vo 2 faile: '); Readln(n2);
Rewrite(f1);
Writeln('Vvedite ',n1,' komponentov v 1 fail:');
For i:=1 to n1 do
begin
  Readln(x);
  Write(f1,x);
end;
Rewrite(f2);
Writeln('Vvedite ',n2,' komponentov vo 2 fail:');
For i:=1 to n2 do
begin
  Readln(x);
  Write(f2,x);
end;
Writeln('1 ishodnii fail:');
OutputFile(f1);
Writeln('2 ishodnii fail:');
OutputFile(f2);
Assign(h,'buf.dat');
Rewrite(h);
Reset(f1);
SwapFiles(h,f1);
Rewrite(f1);
Reset(f2);
SwapFiles(f1,f2);
Reset(h);
Rewrite(f2);
SwapFiles(f2,h);
Seek(f1,MaxElemIndex(f1));
Read(f1,x);
x:=Sqr(x);
Seek(f1,MaxElemIndex(f1));
Write(f1,x);
Seek(f2,MaxElemIndex(f2));
Read(f2,x);
x:=Sqr(x);
Seek(f2,MaxElemIndex(f2));
Write(f2,x);
Reset(f1);
Writeln('Preobrazovannii 1 fail:');
OutputFile(f1);
Reset(f2);
Writeln('Preobrazovannii 2 fail:');
OutputFile(f2);
Close(f1);
Close(f2);
Close(h);
Erase(h);
Readln
END.