Функция, определяющая наименьшую и наибольшую цифры данного числа

function MinDigit(n: longint):integer ;
var m:byte;
begin
n:=abs(n);
result:=9;
if n=0 then result:=0 
else
while n>0 do
begin
 m := n mod 10;
  n := n div 10;
  if result >m then result:=m;
end;  
end;
 
function MaxDigit(n: longint):integer ;
var m:byte;
begin
n:=abs(n);
result:=0;
while n>0 do
begin
 m := n mod 10;
  n := n div 10;
  if result <m then result:=m;
end;  
end;
 
var
  N: longint;
begin
  writeln('Введите N:');
  readln(N);
  writeln('В числе ',N,' наименьшая цифра ',MinDigit(N), ', наибольшая цифра ',MaxDigit(n));  
end.

function Digit(v: byte; n: longint; b: boolean): integer;
var
  m: byte;
begin
  n := abs(n);
  result := v;
  if n = 0 then result := 0
  else
    while n > 0 do
    begin
      m := n mod 10;
      n := n div 10;
      if (result > m) = b then result := m;
    end;
end;
 
 
function MinDigit(n: longint): integer ;
begin
  result := Digit(9, n, true);
end;
 
function MaxDigit(n: longint): integer ;
begin
  result := Digit(0, n, false);
end;
 
var
  N: integer;
 
begin
  writeln('Введите N:');
  readln(N);
  writeln('В числе ', N, ' наименьшая цифра ', MinDigit(N), ', наибольшая цифра ', MaxDigit(n));  
end.