не могу разобраться с вызовом процедуры!

const n1=4; n2=7;
Var a: array [1..n1] of real; b: array [1..n2] of real;
      i, j, k, p1, p2: integer; max_a, max_b, s1, s2: real;
Procedure proc (a: array of real; b:array of real; var max_a, max_b: real;
p1, p2, i , j, o1, o2: integer;  s1, s2: real);
begin
max_a := a[1]; max_b:=b[1];
for i:= 1 to n1 do
if a[i] > max_a then    begin
max_a:= a[i] ;  p1 := i ;end;
for j:=1 to n2 do begin
if b[j] > max_b then    begin
max_b:= b[j] ;  p2 := j ;end; end;
writeln ('максимальный элемент в массиве А - элемент №', p1, '  (',max_a,')');
writeln ('максимальный элемент в массиве B - элемент №', p2, '  (',max_b,')');
for o1:=1 to n1 do begin
if o1 mod 2 = 0 then  s1:=s1+a[o1]; end;
for o2:=1 to n2 do begin
if o2 mod 2 <> 0 then  s2:=s2+b[o2]; end;
writeln ('сумма нечётных эл-ов в массиве А =',s1:3);
writeln ('сумма нечётных эл-ов в массиве b =',s2:3);
end;
Begin
for i:=1 to n1 do begin 
writeln ('введите элемент массива а[',i,']');
readln (a[i]); end;
for j:=1 to n2 do begin
writeln ('введите элемент массива b[',j,']');
readln (b[j]); end;
writeln ('массив А | массив B');
for k:=1 to 4 do begin
writeln (a[k]:5,'|', b[k]:3);
end; for k:=5 to 7 do writeln ('|':6,b[k]:3);
Proc (a, b, max_a, max_b, p1, p2, s1, s2, i, j ); {как организовать вызов процедуры?}
 End.