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

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 d>e then max:=d
  else max:=e;
  Writeln('Максимальная цифра ',max)
end.

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

Введите двухзначное число: 37
Максимальная цифра 7