Проверить, является ли матрица симметричной по отношению к прямой, проведенной через ее середину - Free Pascal

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

Как проверить, является ли двумерный массив симметричным по отношению к прямой, проведенной через середину массива?

Решение задачи: «Проверить, является ли матрица симметричной по отношению к прямой, проведенной через ее середину»

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

function IsSymH(const a: TMatrix): Boolean;
var i, j: Integer;
begin
  IsSymH:=False;
  for i:=0 to (High(a)-1) div 2 do
    for j:=0 to High(a[0]) do
      if a[i,j]<>a[n-i,j] then Exit;
  IsSymH:=True;
end;

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

В данном коде функция IsSymH проверяет, является ли матрица a симметричной по отношению к прямой, проведенной через ее середину.

Тип данных функции: Boolean.
Переменные:
- i, j: Integer - используются для перебора элементов матрицы.
- a: TMatrix - матрица, симметричность которой проверяется.
- n: Integer - размерность матрицы a.
Циклы:
- Первый цикл перебирает элементы верхней половины матрицы a.
- Второй цикл перебирает элементы строки j матрицы a.
Условие выхода из циклов:
- Если найден элемент, не равный своему зеркальному отражению (a[i,j]<>a[n-i,j]), то функция возвращает False.
После выполнения циклов:
- Если цикл был прерван из-за неравенства элементов, то функция возвращает False.
В противном случае:
- Функция возвращает True, т.е. матрица является симметричной.