Проггамма паскаль Найти среднее арифметическое не равных нулю элементов масивные X (n, m) и подсчитать количество элементов с неподлжительными значениями

Program abc;

Const

n=3;

m=3;

Var a:array[1 ... n, 1 ... m] of integer;

b, y, i, j, sum:integer;

srd:real;

Begin

Writeln ('Введите числа массива: ') ;

For i:=1 to n do

For j:=1 to m do

Begin

Write ('a[', i,',', j,'] = ') ;

Readln (a[i, j]) ;

if a[i, j]>0 then

begin

sum:=sum+a[i, j];

inc (b) ;

end

else

If a[i, j]<0 then

Inc (y) ;

End;

If sum>0 then

begin

srd:=sum/b;

Writeln ('Среднее = ', srd) ;

end

else

Writeln ('Нет положительных членов массива') ;

If y>0 then

begin

Writeln ('Количество отрицательных элементов = ', y) ;

end

else

Writeln ('Нет отрицательных членов массива') ;

End.