Проггамма паскаль Найти среднее арифметическое не равных нулю элементов масивные 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      begin       srd:=sum/1      b;      Writeln(Среднее =,srd);      end      else      Writeln(Нет положительных членов массива);     If y>0 then      begin       Writeln(Количество отрицательных элементов =,y);      end      else      Writeln(Нет отрицательных членов массива);End.