program lab2z2;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

Type
   IntArray = Array of Array of Integer;

Const
   MinValueOfN = 2;
   MaxValueOfN = 5;
   MinInArray = -10;
   MaxInArray = 10;

function DataCheck(MinLimit, MaxLimit: Integer): Integer;
Var
   IsCorrect: Boolean;
   NumberForCheck: Integer;
begin
   repeat
      isCorrect := true;
      try
         Readln(NumberForCheck);
         if (NumberForCheck < MinLimit) or (NumberForCheck > MaxLimit) then
            begin
               isCorrect := false;
               Writeln('Значение числа должно быть от ', MinLimit,' до ', MaxLimit,', пожалуйста, повторите ввод:');
            end;
      except
         Writeln('Некорректные данные, пожалуйста, введите целое число.');
         isCorrect := false;
      end;
   until isCorrect;
   DataCheck := NumberForCheck;
end;

procedure main();
Var
   ArrayA: IntArray;
   k, N, i, j: Integer;
begin
   Writeln('Введите порядок матрицы:');
   N := DataCheck(MinValueOfN, MaxValueOfN);
   SetLength(ArrayA, N);
   for j := 0 to (Length(ArrayA) - 1) do
   begin
      Writeln('Введите ', (j + 1), ' ряд матрицы:');
      for i := 0 to (Length(ArrayA) - 1) do
      begin
         ArrayA[i, j] := DataCheck(MinInArray, MaxInArray);
      end;
   end;
   k := 0;
   for j := 0 to (Length(ArrayA) - 1) do
   for i := 0 to (Length(ArrayA) - 1) do
   begin
      If ArrayA[i, j] <> ArrayA[j, i] then
         k := k + 1;
   end;
   If k > 0 then
         Writeln('Матрица не симметрична')
   else
      Writeln('Матрица симметрична');
   Readln;
end;

begin
   main;
end.