Листинг программы

program z40;

{ Составить программу, создающую из файла

  копию, но записаную задом наперёд.      }

uses crt;

var fl1,fl2:text;a,b:string;

    i,l:longint;

 begin

  clrscr;

    assign(fl1,'input.txt');

    assign(fl2,'output.txt');

     reset(fl1);

     readln(fl1,a);

     close(fl1);

    l:=length(a);

    for i:=l downto 1 do b:=b+a[i];

     rewrite(fl2);

     write(fl2,b);

     close(fl2);

    write(b);

  readln;

 end.