матрица

[shelest]

подскажите алгоритм вычисления среднего арифметического столбцов матрицы, если в матрице m строк и три столбца (delphi)

[shelest]

const
n=3;
var
B:array [1..3] of integer;
 a: array [1..3,1..10] of integer;
i,j,m: integer;
begin
write ('vvedite kolichestvo strok');
readln (m);
for i:=1 to m do
  for j:=1 to n do
    begin
      write (' vvedite matricu A');
    Readln (a[i,j]);
    end;

 for i:=1 to m do

begin

B[1]:=??? div m;
B[2]:=??? div m;
B[3]:=??? div m;
end;
for I := 1 to m do
  begin
    for j := 1 to n do
     begin
       write(a[i,j]:6);
end;
    writeln;
  end;

  begin
  write ('koordinaty vektora B:');
   for i:=1 to n do
  Write(b[i]:3);
end;
writeln;
readln
  end.