Определить наибольшую цифру в пятизначном числе. - Turbo Pascal

Помогите решить задачу: Ввести с клавиатуры пятизначное число. Определить наибольшую цифру в этом числе. Заранее спасибо.

Листинг программы

max:=0;
while n>0 do
 begin
  if n mod 10>max then max;= n mod 10;
  n:=n div 10;
 end;

Объяснение кода листинга программы

Переменная max инициализируется значением 0.
В цикле while выполняется пять раз, пока число n больше 0.
Внутри цикла проверяется, является ли последняя цифра числа n больше, чем значение переменной max.
Если это так, то значение переменной max обновляется значением последней цифры числа n.
Число n делится на 10 и из результата вычитается 10 (чтобы получить число без последней цифры).
Цикл завершается, когда число n становится равным 0.
Значение переменной max содержит наибольшую цифру исходного числа.