Question

Как сделать, чтоб удалялось первое число, а не последнее?

Answer 1

// Например так:

begin

 var a := 123456789;

 a := a.ToString[2:].ToInteger;

 Print(a) // 23456789

end.

// Или так:

function foo(a: integer): integer;

begin

 if a div 10 = 0 then exit

 else

   Result := a mod 10 + 10 * foo(a div 10);

end;

begin

 var a := 123456789;

 Print(foo(a)) // 23456789

end.