задача на поиск количества элементов в столбце

[Катакомба]

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

for j:=1 to m do
      begin
          k:=0;
          for i:=1 to n do
          if a[i,j]>sr then
          inc(k);
          writeln('k= ',k);
          readln;

но почему-то выводятся не правильные значения

[MooNDeaR]

Немного непонятна суть программы. Можно полный код?

[Катакомба]

var a:array[1..10, 1..10] of real;
      n,m,i,j,k: integer;
      s:array [1..10] of real;
      sr:real;

    begin
      write('stroki - ');
      readLn(n);
      write('stolbcy - ');
      readLn(m);
      for i := 1 to n do
      for j := 1 to m do
      begin write('a[' , i , ', ' , j , ']=  ');
        readln(a[i, j]);
      end;
        writeln;
        writeln('massiv a');
       for i := 1 to n do
        begin
          for j := 1 to m do
          write(a[i, j]:5:1);
          writeln;
        end;
         writeln;
       begin
          for j := 1 to m do
        begin
          s[j]:=0;
          for i:=1 to n do
          s[j]:=s[j]+ a[i,j]
        end;
       end;
       begin
        write( 'summa stolbca ');
        for j:=1 to m do
        write(s[j]:5:1);
        writeLn;
        readln;
       end;
        for j:=1 to m do
       begin
         for i:=1 to n do
         sr:=s[j]/n;
         writeln('sr= ',sr:5:1);
       end;
        readln;
        for j:=1 to m do
      begin
          k:=0;
          for i:=1 to n do
          if a[i,j]>sr then
          inc(k);
          writeln('k= ',k);
          readln;
      end;
End.

[MooNDeaR]

  for j:=1 to m do
       begin
         for i:=1 to n do
         sr:=s[j]/n;
         writeln('sr= ',sr:5:1);
       end;
        readln;
        for j:=1 to m do
      begin
          k:=0;
          for i:=1 to n do
          if a[i,j]>sr then
          inc(k);
          writeln('k= ',k);
          readln;
      end;

Сомнительно как-то. Если я правильно понял, то надо в каждом столбце вывести элементы, которые больше среднего арифметического их стобца.
Вот так попробуйте:

  for i:=1 to n do
    s[i]:=s[i]/n;
   readln;
  for j:=1 to m do
      begin
          k:=0;
          for i:=1 to n do
          if a[i,j] > s[j] then
          inc(k);
          writeln('k= ',k);
          readln;
      end;

[Son Of Pain]

for i:=1 to n do
sr:=s[j]/n;

Зачем здесь нужен цикл?

Ну и у тебя для всех столбцов используется только одно среднее арифметическое.