Определить, является ли эта матрица симметричной (относительно главной диагонали) - Turbo Pascal

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

Задано матрицу В (5,5). Определить, является ли эта матрица симметричной (относительно главной диагонали). Передачу массива в процедуру выполнить полностью.

Решение задачи: «Определить, является ли эта матрица симметричной (относительно главной диагонали)»

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

type TArInt=array[1..5,1..5]of integer;
var b:TArInt;
i,j:integer;
 
function symm(a:TArInt):boolean;
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if a[i,j]=a[j,i] then symm:=true else symm:=false;
end;
end;
end;
 
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do begin
readln(b[i,j]);//читаем массив с клавы
end;
end;
if symm then writeln('Yes') else writeln('No');
end.

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

В данном коде объявлены переменные типа TArInt (массив целых чисел размером 5x5) и TArInt (массив для хранения ввода пользователя). Далее идёт цикл for, который заполняет массив b значениями, введёнными пользователем. Функция symm принимает массив a и возвращает true, если он симметричен относительно главной диагонали, и false в противном случае. Внутри функции происходит итерация по массиву a с помощью двух вложенных циклов for. Если все элементы массива равны, то функция возвращает true, иначе — false. Затем следует ещё один цикл for, который выводит на экран введённые пользователем значения. И, наконец, вызывается функция symm и выводится соответствующее сообщение в зависимости от её результата.