{* Копирование текстовых файлов *}

Unit COPYTXT;
Interface
Implementation
Begin
 writeln('Копирование текстовых файлов');
End.

Program pas81100;

Uses copytxt.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  f1 : text;
  f2 : text;
  s  : String;
Begin
  assign (f1, 'c:file1.txt'); {* Связывание f1 с файлом 'c:file1.txt' *}
  reset (f1); {* Открытие файла для чтения *}
  assign (f2, 'c:file2.txt'); {* Привязка переменной f2 к файлу 'c:file2.txt' *}
  rewrite (f2); {* Открытие файла для записи *}
  While Not eof (f1) Do {* Если в файле ещё есть данные, то продолжаем *}
  Begin
    readln (f1, s);
    writeln (f2, s)
  End;
  close (f1); {* Закрыть файл f1 *}
  close (f2); {* Закрыть файл f2 *}
End.