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

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
begin
clrscr;
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);//вводим через пробел числа
readln;
clrscr;
writeln('Matrica A:');
for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
  end;
k:=0;
for i:=1 to n do
for j:=i+1 to n do  //смотрим выше главной диагонали
if a[i,j]<>a[j,i] then//если симметричный элемент не равен
  begin
    k:=1;//фиксируем
    break;//заканчиваем поиск
  end;
if k=0 then writeln('Matrica simmetrichnaja!')//если все совпали
else writeln('Matrica ne simmetrichnaja!');
readln
end.

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,max,jmax,x:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to n do
  begin
   for j:=1 to n do
     begin
       a[i,j]:=random(20);
       write(a[i,j]:4);
     end;
   writeln;
  end;
for i:=1 to n do
  begin
    max:=a[i,1];jmax:=1;
    for j:=1 to n do
    if a[i,j]>max then
      begin
        max:=a[i,j];//находим макс в строке
        jmax:=j; //его номер
     end;
   x:=a[i,i];
   a[i,i]:=a[i,jmax];//меняем его с элементом главной диагонали
   a[i,jmax]:=x;
 end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.