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

var a: array[1 ... 100, 1 ... 100] of integer;

n, m, i. j, otr, srar, x: integer;

begin

writeln ('Введите количество строк массива');

readln (n);

writeln ('Введите количество столбцов массива');

readln (m);

writeln ('Заполните массив');

for i:=1 to n do for j:=1 to m do readln (a[i, j]);

for i:=1 to n do for j:=1 to m do (if a[i, j] > 0) or (if a[i, j] < 0) then begin

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

x:=x+1;

end;

writen ('Среднее арифметическое ненулевых чисел массива равно', sum mod x);

for i:=1 to n do for j:=1 to m do if a[i, j]<0 then otr:=otr+1;

writeln ('Количество отрицательных чисел равно ', otr);

end.