const
 n = 4;
 a: array[1 .. n, 1 .. n] of integer =
   ((1, 2, 3, 4),(5, 4, 2, 6),(7, 3, 2, 7),(8, 1, 4, 2));

{ функция проверяет, является ли элемент a[i, j] локальным минимумом }
function is_local_min(i, j: integer): boolean;
 var
   b: boolean;
   ii, jj: integer;
 begin
   b := true;
   for ii := pred(i) to succ(i) do
     for jj := pred(j) to succ(j) do
       if (ii in [1 .. n]) and (jj in [1 .. n]) then
         if (ii = i) and (jj = j) then continue
         else b := b and (a[ii, jj] > a[i, j]);
   is_local_min := b
 end;

var
 i, j: integer;
 result: boolean;
begin
 for i := 1 to n do
   for j := 1 to n do
     if is_local_min(i, j)
       then a[i, j] := 0;

 result := true;
 for i := 1 to pred(n) do
   for j := succ(i) to n do
     result := result and (a[i, j] = a[j, i]);

 if result then
   writeln('матрица симметрична')
 else
   writeln('матрица несимметрична')
end.