Подпрограммы: найти среднее геометрическое нечетных элементов каждого из трех массивов, и определить их сумму

program lab;
uses crt;
type mas=array[1..10] of integer;
var a,b,c:mas; mc: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]);
     writeln
end;

program ms;
uses crt;
type mas=array[1..5] of integer;
 
procedure vvod(var v:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
begin
read(v[i]);
end;
end;
 
procedure s(v:mas;x:byte;var srg:real);
var i,k:byte;
begin
srg:=1;
k:=0;
for i:=1 to x do
begin
if v[i]mod 2<>0 then
begin
srg:=srg*v[i];
k:=k+1;
end;
end;
srg:=((1/k)*ln(srg));
writeln('sgr=',srg);
end;
 
var
a,b,c:mas;
n:integer;
sr,sum:real;
begin
clrscr;
sum:=0;
writeln('Mas A');
write('n='); readln(n);
vvod(a,n);
s(a,n,sr);
sum:=sum+sr;
writeln;
writeln('Mas B');
write('n='); readln(n);
vvod(b,n);
sum:=sum+sr;
s(b,n,sr);
writeln;
writeln('Mas C');
write('n='); readln(n);
vvod(c,n);
s(c,n,sr);
sum:=sum+sr;
writeln;
writeln('sum=',sum);
readln;
end.