В массивах найти индексы максимального элемента и сложить их - Pascal ABC

Формулировка задачи:

Код к задаче: «В массивах найти индексы максимального элемента и сложить их - Pascal ABC»

program la;
 
uses
  Crt;
 
type
  mas = array [1..15] of integer;
 
var
  a, b, c: mas;
  mc: integer;
  imaxA,imaxB,imaxC: integer;
 
procedure InMas(var m: mas; n: integer; mas_name: char);
var
  i: integer;
begin
  writeln('Введите массив ', mas_name, 'из ', n, ' элементов:');
  for i := 1 to n do read(m[i]);
end;
 
procedure OutMas(m: mas; n: integer; mas_name: char);
var
  i: integer;
begin
  writeln('Массив ', mas_name, ':');
  for i := 1 to n do write(m[i]:5);
  writeln
end;
 
function Max(m: mas; n: integer): integer;
var
  i, imax, maxi: integer;
begin
  maxi := m[1];
  for i := 2 to n do 
    if maxi < m[i] then
    begin
      maxi := m[i];
      imax := i
    end;
  Max := imax;
end;
 
begin
  clrscr;
  InMas(a, 3, 'A');InMas(b, 3, 'B');InMas(c, 3, 'C');
  OutMas(a, 3, 'A');OutMas(b, 3, 'B');OutMas(c, 3, 'C');
  imaxA:=Max(A,3);
  imaxB:=Max(B,3);
  imaxC:=Max(C,3);
  writeln('Индекс max элемента массива A = ', imaxA);
  writeln('Индекс max элемента массива B = ', imaxB);
  writeln('Индекс max элемента массива C = ', imaxC);
  writeln('Сумма индексов = ', imaxA + imaxB + imaxC);
end.