Перевертышь числа Задачка на паскале

[Юльчик18]

Мине седня дали задание решить задачку, а я не могу что то её решить, помогите....

Написать программу которая при вводе любогл целого чиса выдает перевертыш эторо числа (например вводим 2345 а выдает 5432).
её надо решить через while.
Плиз ПОМОГИТЕ!

[Namolem]

можно ввести число в виде строки, а потом циклом от конца строки до начала вывести все символы

[Stilet]

var s:string;i:integer;
begin
 readln(s);i:=length(s);
 while i>0 do begin write(s[i]);dec(i);end;
 readln;
end.

[Namolem]

в первом проходе происходит выход за границы строки

[Stilet]

в первом проходе происходит выход за границы строки

А че у меня все работает?

[Chudo4258]

program Project1;
var n,k,p:integer;
begin
readln(n);
k:=n;
p:=0;
while k<>0 do
begin
  p:=p*10+(k mod 10);
  k:=k div 10;
end;
writeln(p);
readln
end.

[Namolem]

Сообщение от Stilet

А че у меня все работает?

а, понятно
в паскале счет идет с 1