Для заданного натурального числа n найти старшую цифру - Pascal

Заранее спасибо!

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

var n: Longint;
begin
  ReadLn(n); n:=Abs(n);
  while n>9 do n:=n div 10;
  WriteLn(n);
end.

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

Создается переменная n типа Longint для хранения введенного натурального числа.
Происходит ввод значения для переменной n с помощью функции ReadLn().
Значение переменной n преобразуется в абсолютное (положительное) с помощью функции Abs().
Начинается цикл while с условием n>9, что позволяет нам находить старшую цифру числа.
Внутри цикла значение переменной n делится на 10 без остатка с помощью оператора div для того чтобы получить оставшуюся часть числа.
Как только значение переменной n становится меньше или равным 9, цикл завершается.
Выводится значение переменной n с помощью функции WriteLn(), которое и будет являться старшей цифрой исходного числа.