Дана матрица размера M<=N. В каждом её столбце найти количество элементов, больших среднего арифметического всех элементов этого столбца - Pascal(Паскаль)

type arr=array [1..100] of real;
var  A:array [1..100] of arr;
     i,j,m,n,kol:integer;
     sum,sred:real;    
     B:arr;
 
begin
writeln('Введите размер матрицы (MxN)');
readln(m,n);
writeln('Введите элементы матрицы' );
For i:=1 to m do
  For j:=1 to n do
    read(A[i,j]);
writeln('Исходная матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;   
For j:=1 to n do
  begin
  sum:=0;
  kol:=0;
  For i:=1 to n do
    sum:=sum+A[i,j];
  sred:=sum/n;
  For i:=1 to n do
    If A[i,j]>sred then kol:=kol+1;
  writeln('количество искомых элементов в ',j,' столбце = ',kol);  
  end;    
end.