[lmikle]

Что значит "разложить"? На цифирьки и покидать в массив что-ли?
Тогда так:

Код:

var
  A : Array Of Byte;
begin
  SetLength(A,0);
  While N > 10 Do
    Begin
       SetLength(A,Length(A)+1);
       A[High(A)] := N Mod 10;
       N := N Div 10;
    End;
  SetLength(A,Length(A)+1);
  A[High(A)] := N;
end;

в массиве будут отдельно цифирьки в обратном порядке, т.е. в начале младший разряд, в конце - старший.