Дано натуральное число. найти максимальную цифру. в паскале. через процедуры

Предыдущий
вопрос Следующий
вопрос

Пример решения данной задачи на языке Pascal:

program FindMaxDigit;
var
n: integer;
procedure FindMaxDigitInNumber(num: integer; var maxDigit: integer);
var
digit: integer;
begin
while num > 0 do
begin
digit := num mod 10;
if digit > maxDigit then
maxDigit := digit;
num := num div 10;
end;
end;
begin
writeln('Введите натуральное число:');
readln(n);
if n <= 0 then
writeln('Введено некорректное число.')
else
begin
var max: integer := 0;
FindMaxDigitInNumber(n, max);
writeln('Максимальная цифра в числе ', n, ' равна ', max);
end;
end.

Пользователю предлагается ввести натуральное число, после чего программа найдет максимальную цифру в этом числе с помощью процедуры FindMaxDigitInNumber.