Ввести строку с клавиатуры. Напечатать ее задом наперед — Pascal(Паскаль)

var s:string;
    i,count:integer;
begin
write('s -> ');
readln(s);
count:=0;
for i:=length(s) downto 1 do
    write(s[i]);
readln;
end.