Найти максимальную цифру натурального числа - PascalABC.NET

function mx(i : int64) : integer;
begin
  if i = 0 then result := 0
  else
  begin
    result := mx(i div 10);
    if i mod 10 > result then result := i mod 10;   
  end;
end;