Проггамма паскаль Отыскать среднее арифметическое не одинаковых нулю частей масивные 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] gt; 0) or (if a[i,j] lt; 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]lt;0 then otr:=otr+1;

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

end.