Дано натуральное число n, составить программу формирования массива, элементами которого являются цифры числа n — Pascal(Паскаль)

uses crt;
var c:array[1..30]of integer;
n:longint;
i,k:integer;
 
begin
 clrscr;
 k:=0;
 while n<>0 do
 begin
  inc(k);
  c[k]:=n mod 10;
  n:=n div 10;
 end;
 
 writeln('Массив из цифр');
 for i:=k downto 1 do write(c[i],' ');
 readln;
end.