Двумерный массив!

[Henkel]

Помогите пожалуйстааа!

B(N,N) Вычислить сумму и число элементов матрицы, находящийся под главной диагональю и на ней. (N <= 12)

[GetMax]

На главной диагонали

S:=0;
Kol:=0;
For I:=1 to N do
Begin
  For j:=1 to N do
  If i=j then
  Begin
    Inc(Kol);
    S:=S+B[i,j]
 End;
End;
Writeln('Kol = ',Kol);
Writeln(S = ',S);

Под главной диагональю

S1:=0;
Kol1:=0;
For I:=1 to N do
Begin
  For j:=1 to N do
  If i>j then
  Begin
    Inc(Kol1);
    S1:=S1+B[i,j]
 End;
End;
Writeln('Kol = ',Kol1);
Writeln(S = ',S1);