[lmikle]

Ну сделай через массив, тем более, что строка это тот же массив.

Код:

uses Math;

var
  I : Integer;
  A : Array Of Byte;
begin
// Разбираем число N на массив
  SetLength(A,0);
  While N > 0 Do
    Begin
      SetLength(A,Length(A) + 1);
      A[High(A)] := N mod 10;
      N := N div 10;
    End;

// Делаем то, что нам надо
...

// Собираем число M из массива
M := 0;
For I := Low(A) To High(A) Do
  M := M + A[i] * Power(10,I);