Программа

PROGRAM Invert;
USES Module;
VAR L:List;                       { Список }
    FileName1,FileName2:string;   { Имена файлов }
BEGIN
  WriteLn;                    { Пропуск строки }
  { Ввод имен файлов: }
  Write('Ведите имя исходного файла ');
  ReadLn(FileName1);
  Write('Ведите имя формируемого файла ');
  ReadLn(FileName2);
  { Связывание файловых переменных с именами файлов: }
  Assign(F1,FileName1);
  Assign(F2,FileName2);
  Reset(F1);     { Открытие файла для чтения }
  Rewrite(F2);   { Открытие файла для записи }
  while not EOF(F1) do
    Begin
      InputList(L);     { Ввод строки }
      OutputList(L);    { Вывод строки }
      WriteLn(F2);      { Вывод конца строки }
      DisposerList(L)   { Уничтожение списка }
    End;
  { Закрытие файлов: }
  Close(F1);
  Close(F2);
END.