Создать и заполнить символьные файлы f1 и f2 Переписать с сохранением порядка следования компоненты файлов

type
  foc = file of char;
 
procedure gen(n: integer; var fc: foc);
var
  t: char;
  i: integer;
begin
  rewrite(fc);
  for i := 1 to n do
    begin
      t := chr(ord('A') + random(ord('z') - ord('A') + 1));
      write(fc, t)
    end;
  close(fc)
end;
 
procedure prn(nm: string; var fc: foc);
var
  t: char;
begin
  reset(fc);
  writeln('Содержимое файла ', nm, ':');
  while not EoF(fc) do
    begin
      read(fc, t);
      write(t)
    end;
  close(fc);
  writeln;
  writeln
end;
 
procedure fcopy(var fc1, fc2: foc);
var
  t: char;
begin
  reset(fc1);
  rewrite(fc2);
  while not EoF(fc1) do
    begin
      read(fc1, t);
      write(fc2, t)
    end;
  close(fc1);
  close(fc2)
end;
 
const
  f1name = 'f1.chr';
  f2name = 'f2.chr';
  hname = 'h.chr';
var
  f1, f2, h: foc;
begin
  randomize;
  assign(f1, f1name);
  gen(100 + random(101), f1);
  prn(f1name, f1);
  assign(f2, f2name);
  gen(100 + random(101), f2);
  prn(f2name, f2);
  writeln('Обмен содержимого файлов.');
  writeln;
  assign(h, hname);
  fcopy(f1, h);
  fcopy(f2, f1);
  fcopy(h, f2);
  erase(h);
  prn(f1name, f1);
  prn(f2name, f2);
  readln
end.