Дано натаральное число n записать его наоборот (информатика)

Var a: string;
    i: integer;
begin
     readln(i);
     a := IntToStr(i);
     for i := length(a) downto 1 do
         write(a[i]);
end.

Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)