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

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



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.



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