Проггамма паскаль Найти среднее арифметическое не равных нулю элементов масивные 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.