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

Var num, Mnum:integer;
begin
Mnum := 0;
readln(num);
while num <> 0 do
begin
if abs(num mod 10) > Mnun then
Mnum := abs(num mod 10);num := num div 10;
end;
writeln(Mnum);
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger; n.ToString.Max.Println
end.

Пример
1507163
7