program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

type
Matrix = array of array of Integer;

function Check (const Min, Max: Integer; Num: Integer): Integer;

var
isCorrect: Boolean;

begin
   repeat
      try
         ReadLn(Num);
         if ((Num < Min) or (Num > Max)) then
         begin
            Writeln ('Ошибка! Введите число от ', Min , ' до ', Max);
            IsCorrect := False;
         end
         else
            IsCorrect := True;
      except
      begin
         Writeln ('Ошибка! Введите число от ', Min , ' до ', Max);
         IsCorrect := False;
      end;
      end
   until IsCorrect;
   Check := Num;
end;

function СheckSymmetry (N, Num1, Num2): Integer;
var
k, i, m : Integer;
begin
   for i := 0 to (N-1) do
      for k := 0 to (N-1) do
      begin
         if Num1 <> Num2 then
         m:=1;
      end;
end;

procedure Main;

var
Matr : Matrix;
N, k, i, m : Integer;

const
MinN = 2;
MinInt = Low(Integer);
MaxInt = High(Integer);
TASK = 'Задача: Дана квадратная матрица А порядка N. Проверить, является ли данная матрица симметричной.';
InputN = 'Введите N (порядок квадратной матрицы)';
InputElement = 'Введите элементы матрицы';
InputTrue  = 'Введенная матрица симметрична';
InputFalse  = 'Введенная матрица несимметрична';

begin
   Writeln (TASK, InputN);
   N := Check (MinN, MaxInt, N);
   Setlength (Matr, N, N);
   Writeln (InputElement);
   for i := 0 to (N-1) do
      for k := 0 to (N-1) do
      begin
         Writeln('Введите А[',(i+1),'][',(k+1),']');
         Matr[i][k] := Check (MinInt, MaxInt, Matr[i][k]);
      end;
   m := СheckSymmetry(N, Matr[i][k], Matr[k][i]);
   if m=0 then
   Writeln (InputTrue)
   else
   Writeln (InputFalse);
   Readln;
end;

begin
   Main;
end.