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

сказано же что нужно функцию написать, но всё равно спасибо

Исправил, никаких проблем

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 < d then max := d;      m := m div 10    until m = 0;    s := s + max  end;  SumDig := send;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