Файл: Переписать с сохранением порядка следования компоненты файлы f1 в файл f2, а компоненты файла f2 - в файл f1.

uses crt;
type tfile=file of char; {тип файлов}
{создание исходных файлов}
procedure createfile(var f:tfile);
var c:char;
    i:integer;
begin
rewrite(f);
for i:=1 to 20 do
 begin
  c:=chr(65+random(26));{запишем для примера по 20 случайных символов}
  write(f,c);           { из диапазона [A..Z]}
 end;
end;
{чтение файлов}
procedure readfile(var f:tfile;name:string);
var c:char;
begin
reset(f);
writeln('Файл ',name);
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
writeln;
end;
{копирование файлов}
procedure copyfile(var f,g:tfile);
var c:char;
begin
reset(f);
rewrite(g);
while not eof(f) do
 begin
  read(f,c);
  write(g,c);
 end;
end;
 
var f1,f2,f3:file of char;
    c:char;
    i:integer;
begin
randomize;
clrscr;
{свяжем файловые переменные сфайлами на диске}
assign(f1,'file_1');
assign(f2,'file_2');
assign(f3,'file_3');
{создадим 2 файла}
createfile(f1);
createfile(f2);
{посмотрим их}
writeln('Содержание исходных файлов');
readfile(f1,'f1');
readfile(f2,'f2');
copyfile(f1,f3); {копируем 1 в 3}
copyfile(f2,f1); {копируем 2 в 1}
copyfile(f3,f2); {копируем 3 в 2}
{снова смотрим}
writeln('Содержание файлов после обмена');
readfile(f1,'f1');
readfile(f2,'f2');
{закрываем файлы}
close(f1);
close(f2);
close(f3);
erase(f3); {уничтожим вспомогательный файл}
readln;
end.