Помогите, программа с матрицей

[Absent]

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

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

Не прошу все это связывать в программу просто хотябы помогите частями.

[kommunist]

Примерно так. правильность не обещаю Могут быть ошибки (под рукой нет паскаля),но в целом алгоритм такой

program matrix;
uses crt;
const n = 5;
type matrica = array[1..n,1..n] of integer;
var
    a:matrica;
    i:integer;
    j:integer;
    summa:integer;
//...........................................
//здесь заполняем саму матрицу
//..........................................
//и проверяем на симметричность
procedure proverkasimm;
begin
  for i:= 1 to n do
begin
  for j:=1 to n do
begin
  if (i<j) = (j<i)
  then
  if i < j
  then
  a[i,j] := 0;
end;
  writeln;
end;
end;
procedure shitsumma;
begin
 summa := 0;
 for i:= 1 to n do
begin
 for j:= 1 to n do
begin
 if i > j
 then
 inc(summa,a[i,j]);
end;
end;
 write(summa);
end;
BEGIN
 proverkasimm;
 shitsumma;
readln;
end.

[Absent]

Немного не понятно. Что означает вот эта строка
if (i<j) = (j<i) ?? ниразу не видел такой записи

[kommunist]

Проверяет массив на симметричность