Информатика, программирование на языке паскаль. Введенную строку вывести в обратном порядке (с последней буквы начинается и первой заканчивается)

Var s:string; i:integer;
begin
writeln(Введите строку:);
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
end.

Пример:
Введите строку
укортс етидевВ