Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а компоненты файла F2 - в файл F1

Program asdf;
uses crt;
Type ff=file of char;
Var f1,f2:ff;
    n,i,m:integer;
    c:char;
Procedure sm(Var fl:ff);
Var cc:char;
begin
  While not eof(fl) do
  begin
    read(fl,cc);
    Write(cc,' ');
  end;
end;
Begin
Write('Введите n ');
readLn(n);
Assign(f1,'f1');
Assign(f2,'f2');
Rewrite(f1);ReWrite(f2);
for i:=1 to n do
begin
  Write('Введите символ ');
  readLn(c);
  Write(f1,c);
end;
WriteLn('Введите символ в m ');
readLn(m);
for i:=1 to m do
begin
  Write('Введите символ ');
  readLn(c);
  Write(f2,c);
end;
ReSet(f1);ReSet(f2);
sm(f1);
WriteLn;
sm(f2);readLn;
close(f1);Close(f2);
end.

Program e_1;
uses crt;
Type ff=file of char;
var
f1,f2,h:ff;
Procedure ReWriter(var ff1,ff2,h:ff;Var p:integer);
 var
  c:char;
 begin
  reset(ff1);
  rewrite(h);
  p:=Filesize(ff1);
  while not eof(ff1) do
  begin
    read(ff1,c);
    Write(h,c);
  end;
  reset(ff2);
  While not eof(ff2) do
  begin
    read(ff2,c);
    Write(h,c);
  end;
end;
 
Procedure Writer(Var ff1,ff2,h:ff;p:integer);
 Var i,r:integer;
     d:char;
 begin
   r:=fileSize(h);
   ReWrite(ff1);ReWrite(ff2);Reset(h);
     for i:=1 to p do
     begin
       read(h,d);
       write(ff2,d);
     end;
     for i:=p+1 to r do
     begin
       read(h,d);
       write(ff1,d);
     end;
  end;
 
procedure vyvod(var a:ff);
 Var ch:char;
     j:integer;
 begin
  reset(a);
  while not eof(a) do
  begin
    read(a,ch);
    write(ch,' ');
  end;
end;
 
Var ppp:integer;
BEGIN
clrscr;
Assign(f1,'f1');Assign(f2,'f2');Assign(h,'h');
writeLn('Файл f1 содержит ');
  vyvod(f1);
WriteLn;
WriteLn('файл f2 содержит ');
  vyvod(f2);
 
ReWriter(f1,f2,h,ppp);
Writer(f1,f2,h,ppp);
Writeln;
writeln('В результате файл f1 стал содержать');
vyvod(f1);
WriteLn;
writeln('В результате файл f2 стал содержать');
vyvod(f2);
close(f1); close(f2); close(h);
readln;
end.