Hogy lehet pascalban mondatot visszafele kiíratni?

már kitalláltam köszi:

program visszafele;

var i:integer;

s:string;

begin

readln(s);

for length(s) to 1 do writeln(s[i]);

end.

*

to helyett downto

Tehát így:

program visszafele;

var i:integer;

s:string;

begin

readln(s);

for i:=length(s) downto 1 do writeln(s[i]);

end.