[lmikle]

Есть вараинты.
1. Через строку:

Код:

var
  A : Array Of Integer;
  S : String;
  C : Char;
  InNmb, I, L : Integer;
begin
  InNmb := 63;
  S :- IntToStr(InNmb);
  L := Length(S);
  // инвертрируем строку если нам нужен младший разряд в младшем элементе
  For I := 1 To (L div 2) Do
    Begin
      C := S[i];
      S[i] := S[L-I+1];
      S[L-I+1] := C;
    End;
  // Заполняем массив
  SetLength(A,L);
  For I := 1 To L Do
    A[I-1] := StrToInt(S[i]);
end;

2. Через деление

Код:

var
  A : Array Of Integer;
  InNmb : Integer;
begin
  InNmb := 63;
  SetLength(A,0);
  While InNmb > 0 Do
   Begin
     SetLength(A,Length(A)+1);
     A[High(A)] := InNmb mod 10;
     InNmb := InNmb div 10;
   End;