Заданную строковую переменную записать в обратной последовательности

Var s :string;
      i :integer;
begin
writeln('введите переменную');
readln(s);
for i:=(Length(s)) downto 1 do write (s[i]);
end.