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

program prog3;                                  
                                                
const                                           
    M = 4;                                      
var                                             
    A: array[1..M, 1..M] of integer;            
    i: integer;                                 
    j: integer;                                 
    sum: integer;                               
begin                                           
    sum:= 0;                                    
                                                
    Randomize();                                
    WriteLn('Matrix:');                         
    for i:= 1 to M do                           
    begin                                       
        for j:= 1 to M do                       
        begin                                   
            A[i, j]:= Random(50);               
            Write(A[i, j]:3);                   
        end;                                    
        WriteLn();                              
    end;                                        
                                                
    for i:= 1 to M do                           
        sum:= sum + A[i,i];                     
                                                
    WriteLn('Result: ', sum);                   
    ReadLn();                                   
end.

var
a:array[1..10,1..10] of integer;
i,j,m,n,S:integer;
b:array[1..10] of real;
begin
writeln('vvedite n :');
readln(n);
writeln('vvedite m :');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random (10)-5;
write(a[i,j]:2,'');
end;
writeln
end;
for i:=1 to n do
begin
S:=0;
for j:=1 to m do
s:=s+a[i,j];
b[i]:=s/m
end;
Writeln('Srednie arifm strok:');
for i:=1 to n do write(b[i]:0:3,' ');
Writeln;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
if a[i,j]<b[i] then s:=s+1;
writeln('V stroke ',i,' kol-vo elem < sr.ar ravno ',s);
end;
readln;
end.

const n=5;
var a,b,c:array[1..n] of integer;
i,kolb,kolc:integer;
begin
randomize;
Writeln('Ichodniy massiv a');
for i:=1 to n do
begin
a[i]:=random (20)-10;
write(a[i],' ');
end;
writeln;
kolb:=0; kolc:=0;
for i:=1 to n do
begin
if a[i]>0 then begin kolb:=kolb+1;b[kolb]:=a[i]; end;
if a[i]<0 then begin kolc:=kolc+1;c[kolc]:=a[i]; end;
end;
writeln('razmer massiva b=',kolb);
for i:=1 to kolb do write(b[i],' ');writeln;
writeln('razmer massiva c=',kolc);
for i:=1 to kolc do write(c[i],' ');
readln;
end.