{* Задача 420 *}

Unit ZADACH420;
Interface
Implementation
Begin
 writeln('Имеется текстовый файл Получить новый файл, в котором в конце каждой строки из заданного файла добавлен восклицательный знак');
End.

Program pas13487;
Uses crt; {* Подключаем внешние файлы *}
Var {Две файловые переменные FileOld-файл источник, FileNew-файл результат}
  FileOld : text;
  FileNew : text;
  StrF    : String; {строка символов из файла}
Begin
  clrscr; {очищаем экран}
  {Подключаем файл источник и ставим указатель на начало}
  assign(FileOld, 'TxtFile.old'); {* Связывание FileOld с файлом 'TxtFile.old' *}
  Reset(FileOld); {Подключаем файл результат и даем возаможность записи в него}
  assign(FileNew, 'TxtFile.new'); {* Привязка переменной FileNew к файлу 'TxtFile.new' *}
  Rewrite(FileNew); {Цикл читает строки из файла источника строку символов пока не встретится символ перевода строки}
  While Not eof(FileOld) Do {* Пока не конец файла *}
  Begin
    readln(FileOld, StrF); {копируем в перепменную StrF строку из файла источника}
    StrF := StrF + '!'; {Добавляем в конец строки восклицательный знак}
    writeln(FileNew, StrF); {Пишем полчившуюся строку в файл результат}
  End;
  close(FileOld); {* Файл FileOld будет закрыт *}
  close(FileNew); {закрываем файлы}
  writeln('Все операции с файлами завершены!. Для продолжения нажмите любую клавишу...');
  Repeat
    Until keypressed; {* После нажатия любой клавиши цикл остановится *}
End.