Цифры заданного натурального числа запишите в обратном порядке

[Radius100]

через цикл while помогите решить пожалуйста

[VIK_aka_TOR]

while n > 0 do
begin
writeln(n mod 10);
n:= n div 10;
end;

[DiemonStar]

Вот как-то так:

S1 := inttostr(Chislo);
S2 :="";
While S <> "" do
  begin
    S2 := S2 + S1[Length(S1)];
    Delete(S1, Length(S1), 1)
  end;