Определить, является ли заданная квадратная матрица антисимметрической и тёплицевой - Turbo Pascal

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

Определить, является ли заданная квадратная матрица антисимметриче- ской и тёплицевой. Ребята,помогите пожалуйста.Очень срочно надо.Использовать при этом процедуры.

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

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

program jaredqq;
 
const n = 5;
 
var a: array [1..n, 1..n] of integer;
    i, j: integer;
    f: boolean;
 
procedure print;
var i, j: integer;
begin
  writeln('Matrix:');
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:6);
      writeln
    end
end;
 
procedure asim;
var i, j: integer;
begin
  f := true;
  for j := 1 to n do
    begin
      for i := j to n do
        if a[i, j] + a[j, i] <> 0
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
procedure toeplitz;
var i, j: integer;
begin
  f := true;
  for j := 2 to n do
    begin
      for i := 2 to n do
        if a[i, j] <> a[i - 1, j - 1]
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
begin
  writeln('Enter elements of matrix, n = ', n, ':');
  for j := 1 to n do
    for i := 1 to n do
      begin
        write('a[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  print;
  asim;
  if f
    then writeln('Antisymmetric')
    else writeln('No antisymmetric');
  toeplitz;
  if f
    then writeln('Toeplitz')
    else writeln('No Toeplitz');
  readln
end.

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

В программе объявлены три процедуры: print, asim и toeplitz.
В переменной n хранится количество строк в матрице (в данном случае - 5).
В переменной a хранится матрица размером n x n.
В цикле print происходит вывод матрицы на экран.
В процедуре asim проверяется, является ли матрица антисимметричной. Если для пары строк i и j выполняется условие a[i, j] + a[j, i] = 0, то матрица не является антисимметричной, и цикл прерывается.
В процедуре toeplitz проверяется, является ли матрица Топплицем. Если для пары строк i и j выполняется условие a[i, j] != a[i - 1, j - 1], то матрица не является Топплицем, и цикл прерывается.
После ввода элементов матрицы и вызова процедур print, asim и toeplitz, программа выводит сообщение о том, является ли матрица антисимметричной и Топплицем.
Вложенных списков в данной программе нет.