Помогите с задачей на паскале

[HYB]

В этой задаче я лаймер
Если целочисленная квадратичная матрица симметрична относительно главной диогонали, обнулить все элементы лежащие выше главной диагонали, и определить сумму элементов лежащие ниже главной диагонали

[BBB]

В этой задаче я лаймер
Если целочисленная квадратичная матрица симметрична относительно главной диогонали, обнулить все элементы лежащие выше главной диагонали, и определить сумму элементов лежащие ниже главной диагонали

Код: Выделить всё

const N = <размерность_матрицы>;

var matr : array [1..N, 1..N] of integer;

var i, j : integer;
      blSymmetrical : boolean;
      Summ : integer;

begin

 // Проверка на симметричность
  blSymmetrical := TRUE;

  for i:= 1 to N do begin
    for j:= i+1 to N do begin
      if (matr [i, j] <> matr [j, i]) then begin
         blSymmetrical := FALSE;
         break;
      end;
    end;
  end;

 // Подсчет суммы, обнуление
  Summ := 0;
  if (blSymmetrical) then begin
    for i:= 1 to N do begin
      for j:= i+1 to N do begin
        Summ := Summ + matr [j, i];
        matr [i, j] := 0;
      end;
    end;
  end;

end.