Как считывать цифры с n-значных чисел?

Program jchx;
 
Const n = 5; {Задаем макс кол. цифр числа}
 
Var a: array[1..n] Of integer; {масив куда будем вписывать цифры}
  m,i: integer;
 
Function kol(b:integer): integer;
 
Var mm,i: integer;
Begin
  mm := b;
  i := 0;
  While mm<>0 Do
    Begin
      mm := mm Div 10;
      i := i+1;
    End;
  kol := i;
End;{функция которая подщитывает кол цифр}
 
Procedure mas;
 
Var mm: integer;
Begin
  mm := m;
  For i:=kol(mm) Downto 1 Do
    Begin
      a[i] := mm Mod 10;{заносим в массив последнюю цыфру на последнее место}
      mm := mm Div 10;{убираем последнюю цифру}
    End;
End;
 
Procedure vivod;
Begin
  For i:=1 To kol(m) Do
    write(a[i]:3);
End;
 
Begin
  readln(m);
  mas;
  vivod;
End.

function kol(b: Integer): Integer;
{-подсчёт количества цифр} 
var i: Integer;
begin
  i:=0; repeat b:=b div 10; Inc(i) until b=0;
  kol:=i;
end;

procedure ToDigits(n: Longint; var a: array of Shortint; var m: Integer);
var i: Integer;
begin
  m:=0;
  repeat
    a[m]:=n mod 10; n:=n div 10; Inc(m);
  until n=0;
end;
var
  d: array [1..10] of Shortint;
  m, i: Integer;
  n: Longint;
begin
  Write('Введите n: '); ReadLn(n); ToDigits(n,d,m);
  for i:=m downto 1 do Write(' ',d[i]); WriteLn;
end.

procedure ToDigits(n: Longint; var d: array of Shortint; var m: Integer);
  procedure digit(n: Longint);
  begin
    if n>10 then digit(n div 10);
    d[m]:=n mod 10; Inc(m);
  end;
begin
  m:=0; digit(Abs(n));
end;
var
  d: array [1..10] of Shortint;
  m, i: Integer;
  n: Longint;
begin
  Write('Введите n: '); ReadLn(n); ToDigits(n,d,m);
  for i:=1 to m do Write(' ',d[i]); WriteLn;
end.