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

const n=10;
 
var a:array [1..n,1..n] of integer;
b:array [1..n] of real;
i,j,x:integer;
 
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(50)+1;
write(A[i,j]:4);
b[i]:=b[i]+a[i,j];
end;
b[i]:=b[i]/n;
writeln;
end;
writeln;
For i:=1 to n do
begin
For j:=1 to n do
If a[i,j]>b[i] then inc(x);
Writeln('В ',i,'-й строке - ',x);
x:=0;
end;
 
End.

uses crt;
const n=10;
 
Type mat = array [1..n,1..n] of integer;
var a:mat;
b:array [1..n] of real;
i,j,x:integer;
 
Procedure Matrica;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    A[i,j]:=random(50)+1;
    write(A[i,j]:4);
    b[i]:=b[i]+a[i,j];
    end;
  b[i]:=b[i]/n;
  writeln;
  end;
writeln;
end;
 
Function Poisk(a:mat):integer;
begin
For j:=1 to n do
    If a[i,j]>b[i] then inc(x);
Poisk:=x;
x:=0;
end;
 
begin
Matrica;
For i:=1 to n do
  Writeln('В ',i:2,'-й строке - ',Poisk(a));
End.

const n=10;
type mat=array [1..n,1..n] of integer;
     mas=array [1..n] of real;
 var a: mat;
     b: mas;
 i,j:integer;
 
 procedure GenM (var a: mat);
 begin
 randomize;
 writeln('Исходный массив:');
 for i:=1 to n do
     begin
     for j:=1 to n do
         begin
         A[i,j]:=random(50)+1;
         write(A[i,j]:5);
         end;
     writeln;
     end;
 end;
 
 procedure Srar (a: mat; var b: mas);
 begin
 writeln('Среднее по строкам:');
 for i:=1 to n do
     begin
     b[i]:=0;
     for j:=1 to n do
          b[i]:=b[i]+a[i,j];
     b[i]:=b[i]/n;
     write(b[i]:5:1);
     end;
 writeln;
 end;
 
 function Kol (ns: integer): integer;
 var k: integer;
 begin
 k:=0;
 For j:=1 to n do
     If a[ns,j]>b[ns] then inc(k);
 Kol:=k;
 end;
 
 begin
 GenM (a);
 Srar (a,b);
 writeln('Больше среднего:');
 For i:=1 to n do
      Writeln('В ',i,'-й строке - ',Kol (i));
 End.