в матрице найти сумму элементов в каждом столбце

[Стамус]

В матрице В(9,9) найти сумму элементов в каждом столбце матрицы и найденные элементы распечатать. Помогите пожалуйста

[Лубышев]

for i:=0 to 8 do
begin
     summ[i]:=0;
     for j:=0 to 8 do
     begin
          summ[i]:=summ[i]+B[i][j];
     end;
end;

[Стамус]

Спасибо!