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

program bl;
const n = 4; m = 5;
type TMatr = array[1..n, 1..m] of integer;
var A : TMatr;
     i, j, cnt : integer;
     sr : real;
 
procedure Input(var A : TMatr);
var i, j : integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      A[i, j] := random(20);
end;
 
procedure Print(A : TMatr);
var i, j : integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j], ' ');
    writeln;
  end;
end;
 
function Srednee(A : TMatr; k : integer) : real;
var i : integer;
begin
  result := 0;
  for i := 1 to n do
    result := result + A[i, k];
  result := result / n;
end;
 
begin
  randomize;
  Input(A);
  Print(A);
  for i := 1 to m do
  begin
    sr := srednee(A, i);
    cnt := 0;
    for j := 1 to n do
      if A[j, i] < sr then
        inc(cnt);
    writeln(cnt);
  end;
  readln;
end.

program bl;
const n = 4; m = 5;
type TMatr = array[1..n, 1..m] of integer;
var A : TMatr;
     i, j, tmp : integer;
 
procedure Input(var A : TMatr);
var i, j : integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      A[i, j] := random(20);
end;
 
procedure Print(A : TMatr);
var i, j : integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j], ' ');
    writeln;
  end;
end;
 
begin
  randomize;
  Input(A);
  Print(A); // Исходная матрица
  for i := 1 to m do
  begin
    tmp := A[1, i];
    A[1, i] := A[n, i];
    A[n, i] := tmp;
  end;
  Print(A); // Полученная матрица
  readln;
end.