Найдите сумму и количество элементов каждой строки больше среднего арифметического

program zz1;

const n=3; / /задаем размер матрицы

var matr:array[1 ... n, 1 ... n] of integer;

i, j, s, kol:integer; sr:real;

begin

for i:=1 to n do / /заполняем матрицу случайными числами от - 10 до 10

for j:=1 to n do

matr[i, j]:=random (21) - 10;

for i:=1 to n do / /выводим матрицу на экран

begin

for j:=1 to n do

write (matr[i, j]:5);

writeln;

end;

for i:=1 to n do

for j:=1 to n do

s:=s+matr[i, j]; / /находим сумму элементов

sr:=s / (n*n); / /находим среднее арифметическое

writeln ('среднее арифметическое элементов матрицы = ', sr); / /выводим ответ

for i:=1 to n do

begin

s:=0; kol:=0;

for j:=1 to n do

if matr[i, j]>sr then begin s:=s+matr[i, j]; kol:=kol+1; end; / /находим сумму и количество элементов

writeln ('в ', i,'-ой строке сумма элементов больше среднего арифметического = ', s,' количество таких элементов = ', kol); //выводим ответ

end;

end.