Дано двузначное число. Выяснить, какая из его цифр является наибольшей. вывести наибольшую цифру на экран.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