[lmikle]

Ну, например, так:

Код:

procedure SplitNumber(InNmb : Integer; var A1 : Integer; var A2 : Integer);
var
  A : Array Of Integer;
begin
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  If Length(A) = 1
    Then
      Begin
        A1 := A[0];
        A2 := 0;
       End
    Else
      Begin
        A1 := A[1];
        A2 := A[0];
      End;
end;