Вывести максимальную цифру заданного числа - Turbo Pascal

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

Вводится 6-значное число.Вывести его максимальную цифру/ Не массивом

Решение задачи: «Вывести максимальную цифру заданного числа»

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

var n:longint;m:byte;
procedure max(x:longint;var k:byte);
begin  
 if x>0 then 
         if k<(x mod 10) then begin k:=x mod 10;max(x div 10,k) end
                         else max(x div 10,k)
end;
begin
 write('n = ');readln(n);m:=0;
 max(n,m);writeln(m)
end.

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

Объявляются две переменные типа longint: n и m.
Создается процедура max с двумя переменными типа longint: x и k, и одной переменной типа byte: m.
В процедуре max проверяется, больше ли значение x нуля. Если это так, то выполняется следующая проверка: если значение k меньше, чем остаток от деления x на 10, то значение k присваивается остаток от деления x на 10, и вызывается рекурсивно процедура max для x/10 и k.
Если значение k больше или равно остатку от деления x на 10, то значение k остается без изменений, и вызывается рекурсивно процедура max для x/10 и k.
В основной части программы считывается число n и сохраняется в переменной n. Затем вызывается процедура max с аргументами n и 0 (по умолчанию значение k равно 0). Результат сохраняется в переменной m, которая затем выводится на экран.
Код завершается после вывода значения m.