Помогите с Паскалем. Нужно написать программу, которая с помощью функции, выводит наибольшую цифру в введенном числе.

Спасибо огромное

Пожалуйста. Пользуйтесь кнопочкой "Спасибо"

var a:integer;function max(n:integer):integer;var m:integer;beginn:=abs(n);m:=0;while n<>0 do begin if n mod 10 > m then m:=n mod 10; n:=n div 10; end;max:=m;end;beginwrite('a = ');readln(a);writeln('Максимальная цифра = ',max(a));end.Пример:a = -185Максимальная цифра = 8

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!function MaxDigit(n:int64):integer;begin  Result:=0;  n:=Abs(n);  while n>0 do (Result,n):=(Max(Result,n mod 10),n div 10)end;begin  var n:int64;  Write('Введите число: '); Read(n);  Writeln('Максимальная цифра равна ',MaxDigit(n))end.ПримерВведите число: 340458239345Максимальная цифра равна 9