Написать программу, используя процедуру, которая для любого целого аргумента возвращает массив содержащий цифры этого элемента — Pascal(Паскаль)

например:
дано число 1234
массив выглядеть должен так:
1 2 3 4

Const n=4;
Type A: array [1..4] of integer;
var Mas:A;
       s:integer;

Procedure Cifri(var Massiv:A; chislo:integer);
var i:integer;
begin
  for i:=1 to n do
    begin
      Massiv[i]:=chislo mod 10;
      chislo:=chislo div 10;
   end;
end;


begin
 write('Введите число');
  readln(s);
Cifri(Mas,s);

write('Массив цифр: ');
for i:=1 to n do
  write(mas[i],' ')
readln;
end.