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