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

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]gt;sr then begin s:=s+matr[i,j];kol:=kol+1;end; //обретаем сумму и количество частей
writeln(в ,i,-ой строке сумма частей больше среднего арифметического = ,s, количество таких частей =,kol);//выводим ответ
end;
end.