Pascal.двумерный массив.Матрица

[Анастасия***]

помогите пожалуйста решить задачу,кому не сложно.

Дан двумерный массив.Определить сумма каких элементов больше:расположенных над главной диагональю или под ней

[Zer0]

а в чем проблема? Главная диагональ, это когда индекс строки равен индексу столбца, соответственно выше - это индекс столбца больше индекса строки, а ниже - индекс строки больше индекса столбца

for row:=1 to n do
 for col:=1 to n do
  if col>row then sumNad:=sumNad+a[i,j]
 else
  if row>col then sumPod:=sumPod+a[i,j];

[Анастасия***]

Спасибо большоеВ который раз помогаешь)