Дано например число 631, поменять первую и последнюю цифры местами, в итоге должно получиться 136.
и ещё как найти наибольшую цифру в числе???

в faq есть разбиение числа на цифры.

Если надо поменять именно 1 и последнюю цифры, то вот тебе концептуальное решение

procedure FirstLast(var X: LongInt);
var i: LongInt;
begin
  if X > 10 then begin
    i := 10;
    while X div i > 10 do i := i * 10;
    X := X mod 10 * i + ((X div 10) mod (i div 10)) * 10 + X div i;
  end;
end;