Algoritmizace #5

// EXE: http://machalda.cekuj.net/d.php?f=30

program soubor1;

var pole:string;
    i:byte;

function otoc(fPole:string):string;
var pom:string;
    begin
         pom:='';
         for i:=ord(fPole[0]) downto 1 do
             pom:=pom+fPole[i];
             otoc:=pom;
    end;
begin
     writeln('###########################################################');
     writeln('#       Zadej text k obraceni');
     write('#->       text: ');
     readln(pole);
     writeln('#');
     write('#     ');
     writeln(otoc(pole));
     writeln('#');
     writeln('########################## KONEC ##########################');
readln;
end.