Дано двузначное число. Узнать, какая из его цифр является наивеличайшей. вывести

1. Современное решение

PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите двухзначное число:');
  Writeln('Наибольшая цифра ',max(n div 10, n mod 10))
end.

2. Школьное решения уровня ТурбоПаскаль 1983г.

var
  n,d,e,max:integer;
begin
  Write('Введите двухзначное число: ');
  Read(n);
  d:=n div 10;
  e:=n mod 10;
  if dgt;e then max:=d
  else max:=e;
  Writeln('Наибольшая цифра ',max)
end.

3. Пример работы обоих программ (однообразный)

Введите двухзначное число: 37
Наибольшая цифра 7