Максимальная цифра - Pascal ABC

Формулировка задачи:

Напишите программу, которая находит максимальную цифру в десятичной записи числа. Входные данные Входная строка содержит натуральное число N . гарантируется, что 0 < N ≤ 10^9 . Выходные данные Программа должна вывести одно число: максимальную цифру в десятичной записи числа N . помогите пожалуйста с решением

Решение задачи: «Максимальная цифра»

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

var n,max:integer;
begin
readln(n);
max:=0;
while n>0 do
 begin
  if n mod 10>max then max:=n mod 10;
  n:=n div 10;
 end;
write(max)
end.

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

Создается переменная n, которая будет принимать введенное пользователем число.
Создается переменная max, которая будет хранить максимальную цифру числа. Изначально она устанавливается равной нулю.
С помощью функции readln(n) происходит чтение введенного пользователем числа в переменную n.
В цикле while n>0 do происходит обработка каждой цифры числа.
Внутри цикла проверяется, является ли текущая цифра больше максимальной. Если да, то максимальная цифра обновляется.
После проверки, переменная n делит на 10 с помощью оператора div. Это необходимо для того, чтобы перейти к следующей цифре числа.
Цикл повторяется до тех пор, пока значение переменной n больше нуля.
По окончании цикла, значение переменной max выводится на экран с помощью функции write(max).