Odpowiedź: Prosty program we Free Pascalu

uses crt;

var slowo:string;
       k:byte;
       esc:char;
       temp:char;
     
begin
clrscr;
repeat
writeln('Podaj slowo');
readln(slowo);
for k:=1 to length(slowo) div 2 do 
begin
temp:=slowo[length(slowo)-k+1];
slowo[length(slowo)-k+1]:=slowo[k];
slowo[k]:=temp;
end;
esc:=readkey;
until esc=#27;
end.