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

Program matrica2;
USES CRT;
 
VAR
a:array [1..20,1..20] of integer;
n,m:integer; {razmer prover kvadratnoj matr}
i,j,tmp:integer; {indeksyu}
 
 
BEGIN
ClrScr;
Write ('BBEDUTE CHISLO STROK U HAWMUTE <Enter> ->');
Readln (n);
Write ('BBEDUTE CHISLO STOLBCOV MATR U HAWMUTE <Enter> ->');
Readln (m);
 
{---------------------------------------------------------------}
Randomize;
           for i:=1 to n do
           begin
           Writeln; {probelyu mejdy strokami}
           for j:=1 to m do         begin
                                    a[i,j]:=random(20);
                                    Write (a[i,j]:4);
                                    end;
                                    Writeln;
           end;
{---------------------------------------------------------------}
 
 
 
 
 
 
 
 
           for j:=1 to m do         begin
                                    tmp:=a[1,j];         
                                    a[1,j]:=a[n,j];
                                    a[n,j]:=tmp;
                                    end;
 
             Writeln;
 
           for i:=1 to n do                               
           begin
           Writeln; {probelyu mejdy strokami}
           for j:=1 to m do         begin
                                    Write (a[i,j]:4);
                                    end;
                                    Writeln;
            end;
           end.