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

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

Создать функцию пользователя, определяющую наибольшую цифру введенного натурального числа

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

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

function gd(n: longint): longint;
var r, d: longint;
begin
  n := abs(n);
  r := 0;
  while n > 0 do
    begin
      d := n mod 10;
      if r < d then r := d;
      n := n div 10
    end;
  gd := r
end;
 
var n: longint;
 
begin
  write('n = ');
  readln(n);
  write('Greatest digit: ', gd(n));
  readln
end.

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

В функции gd объявлены две переменные: r и d типа longint.
Функция принимает на вход переменную n типа longint.
В начале функции n приводится к положительному значению с помощью функции abs.
Переменная r инициализируется значением 0.
Затем происходит цикл while, который выполняется до тех пор, пока n больше 0.
Внутри цикла переменная d вычисляется как остаток от деления n на 10.
Если значение переменной r меньше значения переменной d, то значение переменной r обновляется значением переменной d.
Затем значение переменной n делится на 10 и результат сохраняется в переменной n.
По завершении цикла значение переменной r присваивается функции gd.
В основной части программы объявляется переменная n типа longint.
С помощью функции readln считывается введенное значение переменной n.
Вызывается функция gd(n) и результат выводится на экран с помощью функции write.
Затем с помощью функции readln считывается символ новой строки.