Найти среднее геометрическое чётных элементов в массивах

program lab6;
uses crt;
const k=12;m=8;
type mas=array[1..m]of integer;
var a,b:mas;I:integer;
 
procedure vvod(var x:mas;n:integer);
begin
writeln('Введите',n:2,'чисел массива');
for i:=1 to n do read(x[i]);
writeln;
end;
 
procedure vivod(x:mas;n:integer);
begin
writeln('Исходный массив');
for i:=1 to n do write (x[i]:4);
writeln;
end;
 
procedure sr(x:mas;n:integer);
var sum,kol:integer;
begin
kol:=0;sum:=0;
for i:=1 to n do
if (x[i]>0) and (x[i] mod2=0) then
degin
kol:=kol+1;sum:=sum+x[i];
end;
if kol>0then
writeln('Среднее арифметическое=',sum/kol:7:3)
else
writeln('Положительных чётных в массиве нет');
end;
 
begin
clrscr;
writeln('Массив a:');vvod(a,k);vivod(a,k);sr(a,k);
writeln('Массив b:');vvod(b,m);vivod(b,m);sr(b,m);
end.

program lab6;
uses crt;
const k=12;m=8;
type mas=array[1..k]of integer;
var a,c:mas;I:integer;
 
procedure vvod(var x:mas;n:integer);
begin
writeln('Введите',n:2,' чисел массива');
for i:=1 to n do read(x[i]);
writeln;
end;
 
procedure vivod(x:mas;n:integer);
begin
writeln('Исходный массив');
for i:=1 to n do write (x[i]:4);
writeln;
end;
 
procedure sr(x:mas;n:integer);
var sum,kol:integer;
begin
kol:=0;sum:=0;
for i:=1 to n do
if (x[i] mod 2=0) and (i mod 2=0) then
begin
kol:=kol+1;sum:=sum+x[i];
end;
if kol>0then
writeln('Среднее арифметическое=',sum/kol:0:3)
else
writeln('Чётных элементов на четных позициях в массиве нет');
end;
 
begin
clrscr;
writeln('Массив c:');vvod(c,k);vivod(c,k);sr(c,k);
writeln('Массив a:');vvod(a,m);vivod(a,m);sr(a,m);
end.

p:=1;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]<0)and not(odd(a[i,j])) then p:=p*a[i,j];

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    p:longint;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
p:=1;
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-10;
     write(a[i,j]:4);
     if(a[i,j]<0)and(a[i,j] mod 2=0) then p:=p*a[i,j];
    end;
   writeln;
 end;
writeln;
write('Произведение отрицательных четных=',p);
readln
end.