2-мерные массивы

[Ivka]

Привет...Очень нужна помощь...
Вот сделала программу..и теперь мне надо найти номера тех колонн, где большинство элементов меньше чем среднее арифметическое в массиве...
Помогите, пожалуйста, кто знает как это сделать.

program maisivi;
uses crt;
type mas=array[1..8,1..6] of integer;
vid=array[1..6] of integer;
var A,C:mas;
B:vid;
i,j,s,v:integer;
begin
clrscr;
for i:=1 to 8 do
for j:=1 to 6 do begin
write ('Vvedite matricu (',i,',',j,')==>');
readln(A[i,j]);
end;
writeln;
for i:=1 to 8 do begin
for j:=1 to 6 do write (A[i,j]:4);
writeln;
end;
readln
end.

[GetMax]

Вот вам пример. Разбирайтесь

Var
  Matr:array[1..10,1..10] of Integer;
  i,j,count:Byte;
  Summa:Integer;
  SrArif:Real;
  fl:Boolean;
begin
  Randomize;
  Summa:=0;
  For i:=1 to 5 do
  Begin
    For j:=1 to 5 do
    Begin
      Matr[i,j]:=-20+Random(100);
      Summa:=Summa+Matr[i,j];
      Write(Matr[i,j]:4)
    End;
    Writeln;
  End;
  Writeln;
  SrArif:=Summa/25;
  Writeln('Sred Arifm ',SrArif:4:2);
  fl:=False;
  For j:=1 to 5 do
  Begin
    count:=0;
    For i:=1 to 5 do
    If Matr[i,j] < SrArif then Inc(Count);
    If Count >=3 then
    Begin
      fl:=True;
      Writeln('Stolbec ',j,' Kolichestvo ',count)
    End;
  End;
  If Not fl then Writeln('Not Found');
  Readln;
End.