Найти максимальный элемент каждого из 3 массивов и сложить их - PascalABC.NET

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

Нужно найти максимальный элемент каждого из 3 массивов и сложить их .

                    Листинг программы
                
 
                        
                          
                    
type
atype = array [1..10] of integer;
 
function max(d: array of atype): integer;
var i,m: integer;
begin
m:=d[1];
for i:=1 to 9 do begin
if d[i+1]>m then m:=d[i+1];
end;
end;
 
var a,b,c: array [1..10] of integer;
x,y,z,summ,i:integer;
begin 
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do readln(b[i]);
for i:=1 to 10 do readln(c[i]);
x:=max(a);
y:=max(b);
z:=max(c);
Summ:=a+b+c;
writeln(summ);
end.

Выдаёт ошибку: m:=d[1] - Нельзя преобразовать тип array [1..10] of integer к integer

Решение задачи: «Найти максимальный элемент каждого из 3 массивов и сложить их»

Листинг программы

type
atype = array [1..10] of integer;
 
function max(d: atype): integer;
var i,m: integer;
begin
m:=d[1];
for i:=1 to 9 do begin
if d[i+1]>m then m:=d[i+1];
end;
max:=m;
end;
 
 
var a,b,c: atype; // <--- Нужно использовать то же описание типа, которое используется в функции
x,y,z,summ,i:integer;
begin 
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do readln(b[i]);
for i:=1 to 10 do readln(c[i]);
x:=max(a);
y:=max(b);
z:=max(c);
Summ:=x+y+z;
writeln(summ);
end.

Объяснение кода листинга программы

В этом коде используется язык программирования PascalABC.Net.

Тип данных atype определен как массив целых чисел от 1 до 10.
Функция max принимает в качестве параметра массив d и возвращает его максимальный элемент. Она инициализирует переменную m значением первого элемента массива d, а затем проходит по всем оставшимся элементам, сравнивая каждый из них с текущим максимальным значением m. Если текущий элемент больше m, он становится новым максимальным значением.
Три переменные a, b и c определены как массивы целых чисел, которые будут содержать значения, введенные пользователем.
Цикл for используется для чтения 10 значений в каждую из переменных a, b и c.
Затем функция max применяется к каждому из массивов a, b и c, чтобы найти их максимальные значения, которые сохраняются в переменных x, y и z.
Сумма этих трех максимальных значений сохраняется в переменной summ.
Наконец, значение переменной summ выводится на экран с помощью функции writeln. Следует отметить, что в данном коде не обрабатываются ошибки, связанные с вводом данных, например, если пользователь вводит некорректные данные (например, буквы вместо чисел) или вводит меньшее количество данных, чем ожидается (например, вводит только одно значение вместо 10).