Является ли заданная целая квадратная матрица шестого порядка симметричной относительно главной диагонали. - Pascal ABC

Формулировка задачи:

Определить, является ли заданная целая квадратная матрица шестого порядка симметричной (относительно главной диагонали).

Решение задачи: «Является ли заданная целая квадратная матрица шестого порядка симметричной относительно главной диагонали.»

Листинг программы

k:=0;
i:=2;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<i)and(k=0) do
  if a[i,j]<>a[j,i] then k:=1
  else inc(j);
  if k=0 then inc(i);
 end;
if k=0 then write('Симметрична')
else write('Не симметрична');

Объяснение кода листинга программы

Переменная k инициализируется значением 0.
Переменная i устанавливается равной 2.
Запускается цикл while, который выполняется, пока i меньше или равно n (n - это размерность матрицы), и k равно 0.
Внутри цикла while инициализируется переменная j равной 1.
Цикл while повторяется, пока j меньше или равно i, и k равно 0.
Внутри цикла проверяется условие a[i,j] не равно a[j,i]. Если это условие истинно, то значение k устанавливается равным 1. Это означает, что матрица не является симметричной относительно главной диагонали.
Если условие из пункта 6 не выполняется, то значение k устанавливается равным 0. Это означает, что матрица является симметричной относительно главной диагонали.
После завершения внутреннего цикла while значение переменной i увеличивается на 1.
Если значение k равно 0, то выводится строка Симметрична.
Если значение k не равно 0, то выводится строка Не симметрична.