Получить все цифры заданого пользователем числа

var n, x:integer;
begin
readln(n);
for var i:=6 downto 1 do //6 - число разрядов
begin
x:= n mod round(power(10,i));
if x div round(power(10,i-1))>0 then writeln(x div round(power(10,i-1)));
end;
end.

var
  n: integer;
  s: string;
 
begin
  readln(n);
  s := '';
  if n = 0 then s := '0' 
  else
    while n > 0 do
    begin
      s := IntToStr(n mod 10) + NewLine + s;
      n := n div 10;
    end;
  writeln(s);
end.

var
  Count: integer;
 
function Power2(x, y: integer) := Round(Power(x, y));
 
begin
  var N := ReadlnInteger('Введите число:');
  var N2 := N;
  repeat
    N2 := N2 div 10;
    Inc(Count);
  until N2 = 0;
  
  WritelnFormat('Число {0} имеет {1} разрядов.', N, Count);
  
  N2 := N;
  repeat
    var x := N2 div Power2(10, Count - 1);
    Writeln(x);
    N2 := N2 mod Power2(10, Count - 1);
    Dec(Count);
  until N2 = 0;
end.

begin
 var n := ReadlnInteger('Введите любое число менее 1 миллиона: ');
 for var i := 5 downto 0 do
  begin 
   if (n div Trunc(Power(10,i))) <> 0 then
    WriteLn(n div Trunc(Power(10,i)));
    n := n - (n div Trunc(Power(10,i))*Trunc(Power(10,i)));
  end;
end.