Найти самую большую цифру целого положительного числа - Pascal (243052)

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

Найти самую большую цифру целого положительного числа С подробным объяснением что откуда взялось

Решение задачи: «Найти самую большую цифру целого положительного числа»

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

var n,mx:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);//число может быть и отрицательным
mx:=0;//пусть пока максимальная=0
while n>0 do//пока число не 0
 begin
  if n mod 10>mx then mx:=n mod 10;//отделяем последнюю цифру
                                   //и сравниваем с максимумом
  n:=n div 10; //сокращаем число в 10 раз
 end;
write('Максимальная цифра в числе=',mx)
end.

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

Объявляются две переменные: n и mx типа integer (целое число).
Пользователю предлагается ввести целое число n.
Число n преобразуется в абсолютное значение, т.е. берется его модуль, с помощью функции abs(n).
Переменной mx присваивается значение 0, которое будет служить максимальной цифрой.
Запускается цикл while, который будет выполняться до тех пор, пока число n не станет равным 0.
Внутри цикла проверяется последняя цифра числа n (n mod 10), и если она больше текущего значения максимальной цифры (mx), то значение переменной mx обновляется.
Число n сокращается в 10 раз с помощью операции деления нацело (n div 10).
После выхода из цикла while выводится сообщение с максимальной цифрой.