Файлы

uses crt;
var
f1,f2,h:file of char;
ch:char;
begin
  assign(f1,'C:\ch1');
  assign(f2,'C:\ch2');
  assign(h,'C:\tmp');
  rewrite(f1);
  rewrite(f2);
  rewrite(h);
    writeln('Заполнение файла f1');
      read(ch);
      repeat
        writeln('Введите символы конец ввода символ 9');
        write(f1,ch);
        read(ch);
      until ch='9';
      close(f1);
      writeln('Заполнение файла f2');
      read(ch);
      repeat
        writeln('Введите символы конец ввода символ 9');
        write(f2,ch);
        read(ch);
      until ch='9';
      clrScr;
      close(f2);
      reset(f1);
      writeln('Содержимое файла f1');
        while not EOF(f1) do
          begin
            read(f1,ch);
            write(ch,' ');
            write(h,ch); {записывем содержимое превого файла в вспомогательный}
          end;
      close(f1);
      close(h);
      writeln;
      writeln('--------------------------------------------');
      reset(f2);
      writeln('Содержимое файла f2');
        while not EOF(f2) do
          begin
            read(f2,ch);
            write(ch,' ');
          end;
      close(f2);
      rewrite(f1);  {перезапись содержимого втрого в первый}
      reset(f2);
        while not EOF(f2) do
          begin
            read(f2,ch);
            write(f1,ch);
          end;
      close(f1);
      close(f2);
      rewrite(f2);   {перезапись содержимого первого во второй}
      reset(h);
        while not EOF(h) do
          begin
            read(h,ch);
            write(f2,ch);
          end;
      close(h);
      close(f2);
      Erase(h);
      writeln;
      writeln('-----------------------------------');
      reset(f1);
      reset(f2);
      writeln('Содержимое файла f1');
        while not EOF(f1) do
          begin
            read(f1,ch);
            write(ch,' ');
          end;
      close(f1);
      writeln;
      writeln('Содержимое файла f2');
        while not EOF(f2) do
          begin
            read(f2,ch);
            write(ch,' ');
          end;
      close(f2);
end.