Determinar digito mayor de un numero

[*Caro*]

Hola luisito2011, también lo puedes hacer así:

Código Delphi [-]
function cnumeronatural.DigitoMayor(numero : Integer) : Integer;
var
  Mayor, Digito, Num : Integer;
begin
  Mayor := -1;
  Num := numero;
  while Num > 0 do
   begin
    Digito := Num Mod 10;
    Num := Num Div 10;
    if Digito>Mayor then
     Mayor:=Digito;
   end;
  result:=Mayor;
end;

Saluditos

[ecfisa]

Hola.

Código Delphi [-]
function MayorDigito(Numero: Integer): Integer;
var
 Digito: Integer;
begin
  Result:= -1;
  while Numero > 0 do
  begin
    Digito:= Numero mod 10;
    Numero:= Numero div 10;
    if Digito > Result then
      Result:= Digito;
  end;
end;

Un saludo.

Edito: Veo que mientras hacía los últimos retoques del código, Caro ya había puesto una solución muy similar...