Распечатать десятичные цифры введенного натурально числа начиная с младшей

var n,digit:integer;
begin
     writeln('Введите число:');
     readln(n);
     repeat
           digit:= n mod 10;
           writeln(digit);
           n:= n div 10;
     until N=0;
     readln;
end.

var n,digit,s:integer;
begin
     writeln('Введите число:');
     readln(n);
     repeat
           digit:= n mod 10;
           s:=s+digit;
           n:= n div 10;
     until N=0;
     writeln('Сумма цифр введенного числа = ',s);
     readln;
end.

var n,digit,max:integer;
begin
     writeln('Введите число:');
     readln(n);
     max:=n mod 10;
     repeat
           digit:= n mod 10;
           if digit>max then max:=digit;
           
           n:= n div 10;
     until N=0;
     writeln('Максимальная цифра числа: = ',max);
     readln;
end.

var s:string;
    n,i:integer;
begin
     writeln('Введите число:');
     readln(n);
     str(n,s);
     for i:=1 to length(s) do
         writeln(s[i]);
     readln;
end.

WriteLn(s);

WriteLn(n);

var n:integer; s: string
begin
  writeln('Введите число:');
  readln(n);
  s:='';
  repeat
    s:=chr(ord('0')+n mod 10)+s;
    n:= n div 10;
  until n=0;
  writeln(s);
  readln;
end.