Неправильно работает программа

Я написал программу на паскале которая должна выводить максимальную цифру в числе но при любом числе выдаёт "0"
Вот код

var
n:longint;
c,max:integer;
begin
write('Введите число ');readln(n);
max:=0;
while n>0 do
begin
c:=n mod 10;
if c>max then c:=max;
n:=n div 10;
end;
writeln('Наибольшая цифра числа ',max);
end.