Паскаль Написать функцию нахождения суммы максимальных цифр элементов массива. Массив состоит из натуральных чисел. Помогите пожалуйста

Const
  n = 10;

type
  Vector = array[1..n] of integer;

function SumDig(a: Vector): integer;
var
  i, m, d, s, max: integer;
begin
  s := 0;
  for i := 1 to n do
  begin
    m := a[i];
    max := -1;
    repeat
      d := (m mod 10);
      if max       m := m div 10
    until m = 0;
    s := s + max
  end;
  SumDig := s
end;

var
  i: integer;
  M: Vector;

begin
  Writeln(Введите , n, чисел:);
  for i := 1 to n do Read(M[i]);
  Writeln(Сумма максимальных цифр всех чисел равна , SumDig(M))
end.

Тестовое решение:
Введите 10 чисел:
613 269 839 10 575 569 812 56 401 616
Сумма максимальных цифр всех чисел равна 65