program p22;
uses crt;

var f1,f2:text;
    s1,s2:string;
        i:byte;

begin
assign(f1,'text1.txt');  { predstav si pod nazvem f1 soubor text1.txt }
assign(f2,'text2.txt');  { predstav si pod nazvem f2 soubor text2.txt }
reset(f1);               { otevri soubor f1, ze ktereho budes cist vetu }
if ioresult<>0 then halt;{ jestlize ioresult<>0 - soubor neexistuje - konec}
rewrite(f2);             { vytvor novy soubor f2 }
readln(f1,s1);           { precti ze souboru f1 1.vetu a zapis do promene s1 }
s2:='';
for i:=length(s1) downto 1 do s2:=s2+s1[i]; { prepis do s2 pozpatku }
writeln(f2,s2);         { vetu s2 zapis do souboru f2 }
close(f1);              { se soubory f1, f2 uz nebudeme pracovat - }
close(f2);              { - muzeme je timto prikazem zavrit }
writeln('Prace ukoncena');
end.