Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на экран максимальную из них

begin
readln(n);//1 массив
Sa:=0;
for i:=1 to n do
 begin
 readln(a[i]);
 if a[i] mod 2 =0 then Sa:=Sa+a[i];//сумма четных
 end;
 
readln(m);//2 массив
Sb:=0;
for i:=1 to m do
 begin
 readln(b[i]);
 if b[i] mod 2 =0 then Sb:=Sb+b[i];//сумма четных
 end;
 
 
readln(k);//3 массив
Sc:=0;
for i:=1 to k do
 begin
 readln(a[i]);
 if c[i] mod 2 =0 then Sc:=Sc+c[i];//сумма четных
 end;
 
//осталось найти максимальное среди Sa Sb Sc

function Name (X: integer; S: String): Integer;

procedure <Имя> [(параметры)];
function <Имя> [(параметры)] : <тип результата>;

function sum(A:array .....):integer;//возвращает сумму четных
var n:integer;
begin
 readln(n);//кол-во эл. массива
Sum:=0;
for i:=1 to n do
 begin
 readln(a[i]);
 if a[i] mod 2 =0 then Sum:=Sum+a[i];//сумма четных
 end;
end;
begin
Sa:=sum(A);
Sb:=sum(B);
Sc:=sum(C);
//осталось найти максимальное среди Sa Sb Sc
end.