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

Var a:integer;

function max (n:integer) : integer;

var m:integer;

begin

n:=abs (n) ;

m:=0;

while n0 do

begin

if n mod 10 > m then m:=n mod 10;

n:=n div 10;

end;

max:=m;

end;

begin

write ('a = ') ;

readln (a) ;

writeln ('Максимальная цифра = ', max (a)) ;

end.

Пример:

a = - 185

Максимальная цифра = 8