Массив и матрица: поиск элементов с заданными свойствами

const N=100;
var
a: array[1..N,1..N] of Integer;
b: array[1..N] of Integer;
c: array[1..N] of Integer;
i,j,x,m,v,g,sum,min,kol,max,i_max,i_min:Integer;
begin
Randomize;
m:=0;
sum:=0;
kol:=0;
max:=0;
Writeln('Введите число Z');
Readln(x);
for I := 1 to 4 do begin
min:=100;
for J := 1 to 5 do begin
a[i,j]:=Random(20)-10;
if a[i,j]>0 then
sum:=sum+a[i,j];
if a[i,j] mod 2=0 then begin
Inc(m);
b[m]:=a[i,j];
end;
if a[i,j]<min then
min:=a[i,j];
end;
Inc(g);
c[g]:=min;
end;
 
for I := 1 to m do begin
if b[i]>x then
kol:=kol+1;
end;
 
max:=-20;
min:=100;
for I := 1 to g do begin
if min>c[i] then begin
i_min:=i;
min:=c[i];
end;
if Max<c[i] then begin
i_max:=i;
max:=c[i];
end;
end;
 
writeln('Сам массив:');
for I := 1 to 4 do begin
for J := 1 to 5 do begin
write(a[i,j]:3);
end;
Writeln;
end;
 
writeln('Сумма положительных элементов матрицы = ',sum);
Writeln;
writeln('Одномерный массив из четных элементов данной матрицы:');
for I := 1 to m do
Write(b[i]:3);
Writeln;
writeln('минимальный элемент в каждой строке матрицы:');
for I := 1 to g do
Write(c[i]:3);
Writeln;
Writeln('кол-во элементов больше Z = ',kol);
Writeln;
Writeln('индекс максимального = ',i_max,' индекс минимального элемента = ',i_min);
Readln;
end.