Дана матрица А(n,m), n, m <=20. Разработайте программу, формирующую одномерный массив В(n), элементами которого должны являться количество элементов каждой строки, превышающих ср. арифметическое значение матрицы в целом. Если в строке таких элементов нет, в соответствующий элемент одномерного массива заносится 0. вывести исходную матрицу, значения ср. арифметического элементов матрицы и сформированный массив В.
Помогите ещё дать словесное описание
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);
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);
writeln('среднеарифметическое матрицы равно -> ',sr:6:1);
kol:=0;
for i:=1 to n do
begin
b:=0;
kol:=0;
for j:=1 to m do
begin
if a[i,j]>sr then kol:=kol+1; b:=kol;
end;
end;
writeln;
writeln('сформированный массив ');
writeln;
for i:=1 to n do
write(b:4);
readln;
end.