Дана матрица размера M × N. В каждом ее столбце найти количество элементов, больших среднего арифметического всех элементов этого столбцаможно пожалуйста с подробным объяснением даю 100 поинтов

program mas;

const m=5;

     n=4;

var mat:array[1..m,1..n]of integer;

   i,j,k:integer;

   s:real;

begin

for i:=1 to m do

for j:=1 to n do

read(mat[i,j]);

for i:=1 to m do

begin

    for j:=1 to n do

    write(mat[i,j]:6);

    writeln;

end;

for j:=1 to n do

begin

    s:=0; k:=0;

    for i:=1 to m do

    s:=s+mat[i,j];

    s:=s/m;

    for i:=1 to m do

    if mat[i,j]>s then inc(k);

    writeln('Столбец: ',j,'; СА: ',s,'; Элементов больше СА: ',k);

end;

end.