Написать программу, находящую максимальные цифры в числе

Function GetMaxN(N : Integer) : Byte;
Var nn, max : Integer;
Begin
  max:=0; nn:=n;
  While nn>0 do
  Begin
    If (nn mod 10)>max then max:=nn mod 10;
    nn:=nn div 10;
  End;
  GetMaxN:=max;
End;

program MaxDigit;
 
function getMaxDigit(n : integer) : byte;
const
    counters : array[0..9] of byte = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 );
var
    i : byte;
begin
    repeat
        inc(counters[n mod 10]);
        n := n div 10;
    until n = 0;
    for i := 9 downto 0 do
        if counters[i] > 0 then
            begin
                getMaxDigit := i;
                break
            end
end;
 
var
    number : integer;
begin
    write('Number: ');
    readln(number);
    writeln('Max digit: ', getMaxDigit(number));
end.

program RecursiveMaxDigit;
 
function getMaxDigit(n : integer) : integer;
var
    last, next : integer;
begin
    if ( n > 9 ) then
        begin
            last := n mod 10;
            next := getMaxDigit(n div 10);
            if last > next then
                getMaxDigit := last
            else
                getMaxDigit := next;
        end
    else
        getMaxDigit := n;
end;
 
var
    number : integer;
begin
    write('Number: ');
    readln(number);
    writeln('Max digit: ', getMaxDigit(number));
end.