{* Задача 155 *}

Unit ZADACH155;
Interface
Implementation
Begin
 writeln('Составить программу, создающую из файла копию, но записаную задом наперёд. ');
End.

Program pas13580;

Uses zadach155.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  fl1 : text;
  fl2 : text;
  a   : String;
  b   : String;
  i   : longint;
  l   : longint;
Begin
  clrscr; {* Очищаем экран *}
  assign(fl1, 'input.txt'); {* Связывание fl1 с файлом 'input.txt' *}
  assign(fl2, 'output.txt'); {* Подключение к файлу 'output.txt' через переменную fl2 *}
  reset(fl1); {* Открытие файла для чтения *}
  readln(fl1, a);
  close(fl1); {* Файл fl1 будет закрыт *}
  l := length(a);
  For i := l Downto 1 Do
    b := b + a[i];
  rewrite(fl2); {* Подготовка переменной fl2 для записи в файл *}
  write(fl2, b);
  close(fl2); {* Закрыть файл fl2 *}
  write(b);
  readln; {* Приостановка программы. Ожидание Enter *}
End.