Матрица

[Lems11]

Дана матрица А(n,m), n, m <=20. Разработайте программу, формирующую одномерный массив В(n), элементами которого должны являться количество элементов каждой строки, превышающих ср. арифметическое значение матрицы в целом. Если в строке таких элементов нет, в соответствующий элемент одномерного массива заносится 0. вывести исходную матрицу, значения ср. арифметического элементов матрицы и сформированный массив В.

[ai\ekcah^p]

Что-то вроде этого

program zad;
uses crt;
type massiv=array[1..20,1..20] of integer;
     mas=array[1..20] of integer;
var
a:massiv;
b:mas;
i,j,n,m,sum,kol:integer;
sr:real;
begin
 clrscr;
 randomize;
 write('введите n -> ');readln(n);
 write('введите m -> ');readln(m);
 textcolor(11);
 writeln;
 sum:=0;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   a[i,j]:=random(101)-50;
   write(a[i,j]:4);
   sum:=sum+a[i,j];
  end;
  writeln;
 end;
 writeln;
 sr:=sum/(n*m);
 textcolor(10);
 writeln('среднеарифметическое матрицы равно -> ',sr:6:1);
 kol:=0;
 for i:=1 to n do
 begin
 b[i]:=0;
 kol:=0;
  for j:=1 to m do
  begin
   if a[i,j]>sr then  kol:=kol+1; b[i]:=kol;
  end;
 end;
 writeln;
 textcolor(14);
 writeln('сформированный массив  ');
 writeln;
 for i:=1 to n do
 write(b[i]:4);
 readln;
end.

[Lems11]

ai\ekcah^p

Благодарю!!!)