Написать программу, которая формирует массив из чисел числа N (через procedure)

program Z2;{$APPTYPE CONSOLE}
uses SysUtils, Windows;
var a:array[1..100] of integer;
    i,n,j,k,b:integer;
    procedure ZapMass(n:integer;Var a:array of integer);
    begin
    k:=0;
     repeat
      b:=n mod 10;
      a[k]:=b;
      inc(k);
      n:=n div 10;
     until n=0;
     end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  SetConsoleCP(1251);SetConsoleOutputCP(1251);
  write('Введите натурально число  N= ');readln(n);
  ZapMass(n,a);
  writeln('Итоговый массив: ');
  for i:=1 to k do
  write(a[i]:4);
  readln;
end.

type
  vector = array[1..100] of integer;
 
var
  c: vector;
  i, q, x: integer;
 
procedure ZapMass(n: integer; var a: vector; var k: integer);
var
  m, i, x, b: integer;
 
begin
  k := 0;
  repeat
    b := n mod 10;
    inc(k);
    a[k] := b;
    n := n div 10;
  until n = 0;
  m := k;
  for i := 1 to m div 2 do
  begin
    x := a[i];
    a[i] := a[m - i + 1];
    a[m - i + 1] := x;
  end;
  
end;
 
begin
  write('Введите натуральное число  N: ');
  readln(x);
  ZapMass(x, c, q);
  writeln('Итоговый массив: ');
  for i := 1 to q do
    write(c[i]:4);
  readln;
end.