Написать процедуру, рассчитывающую сумму средних арифметических обоих массивов

program f1;
 
var
  f, s, n, g: real;
  v, j, b, h, z, min1, min2, min3, min4, min5, min6: integer;
 
procedure n1(y, x: integer);
begin
  var i: integer;
  f := 0;s := 0;n := 5;
  for i := 1 to 5 do
    f := f + x;
  for i := 1 to 5 do
    s := s + y;
  g := (f / n) + (s / n);
  n1 := g;
end;
 
function n2(x, y: integer): integer;
begin
  if (x mod 2 <> 0) then h := h * x;
  if (y mod 2 = 0) then j := j * y;
  b := h * j; 
  n2 := b;
end;
 
procedure n3(x, y: integer);
begin
  var i: integer;
  min1 := x;
  for i := 2 to 5 do
    if (x < min1) Then Min1 := x;
  min2 := x;
  for i := 2 to 5 do
    if (x < Min2) AND (x > Min1) Then Min2 := x;
  min3 := x;
  for i := 2 To 5 do 
    if (x < Min3) AND (x > Min2) Then Min3 := x;
  writeln('naim1=', min1, min2, min3);
  min4 := y;
  for i := 2 to 5 do
    if (y < min4) Then Min4 := y;
  min5 := y;
  for i := 2 to 5 do
    if (y < Min5) AND (y > Min4) Then Min2 := y;
  min6 := y;
  for i := 2 To 5 do 
    if (y < Min6) AND (y > Min5) Then Min3 := y;
  writeln('naim2=', min4, min5, min6)
end;
 
begin
  var i: integer;
  var x, y: array [1..5] of integer;
  writeln('введите элементы 1 массива');
  for i := 1 to 5 do
    Read(x[i]);
  readln;
  writeln('введите элементы второго масива');
  for i := 1 to 5 do
    read(y[i]);
  readln;
  v := n1(y[i], x[i]);
  z := n2(x[i], y[i]);
  writeln('Сумма средних арифм.=', v);
  writeln('Произведение четн. на нечетн.=', z);
  
end.

program ex;
uses crt;
type vector=array[1..100] of integer;
var a,b:vector;
    n,m,i:integer;
procedure form(var a:vector;var n:integer);
var i:integer;
begin
write('количество элементов в массиве: ');readln(n);
for i:=1 to n do
begin 
write('введите значение: ');
readln(a[i]);
end;
end;
 
procedure print(a:vector; n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;
 
procedure avg(a,b:vector;n,m:integer);
var i,s_a,s_b:integer;
    sred_a,sred_b:real;
begin
for i:=1 to n do
s_a:=s_a+a[i];
sred_a:=s_a/n;
for i:=1 to m do
s_b:=s_b+b[i];
sred_b:=s_b/m;
writeln('сумма средних арифметических массивов: ',sred_a+sred_b);
end;
 
function sim(a,b:vector; n,m:integer):integer;
var i,u,p:integer;
begin
p:=1;u:=1;
for i:=1 to n do 
if a[i]mod 2=0 then p:=p*a[i];
for i:=1 to m do 
if b[i]mod 2<>0 then u:=u*b[i];
sim:=p*u;
end;
 
procedure threemin(a:vector;n:integer);
var min_1,min_2,min_3,i:integer;
begin
min_1:=Maxint;min_2:=Maxint;min_3:=Maxint;
for i:=1 to n do
if (a[i]<min_1) then min_1:=a[i];
for i:=1 to n do
if (a[i]>min_1)and(a[i]<min_2) then min_2:=a[i];
for i:=1 to n do
if (a[i]>min_2)and(a[i]<min_3) then min_3:=a[i];
writeln('один из наименьших элементов в массиве: ',min_1);
writeln('один из наименьших элементов в массиве: ',min_2);
writeln('один из наименьших элементов в массиве: ',min_3);
end;
 
begin
form(a,n);
form(b,m);clrscr;
write('массив А: ');
print(a,n);writeln();
write('массив B: ');
print(b,m);writeln();
avg(a,b,n,m);
write(sim(a,b,n,m));
writeln();
write('в массиве А: ');
threemin(a,n);
write('в массиве B: ');
threemin(b,n);
end.