[lmikle]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A : Array Of Integer;
  InNmb : Integer;
  A1, A2 : Integer;
begin
  InNmb := 27;
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  A1 := A[1];
  A2 := A[0];
  ShowMessage(Format('A1=%d, A2=%d',[A1,A2]));
end;

На выходе показывает 'A1=2 A2=7'.