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

program MK;
 
var
  i, j, p, c,n, w, q, dg, dp, k: integer;
  A: array[1..10, 1..10] of integer;
 
begin
  k:=1;
  read(n);
  for i := 1 to n do
    for j := 1 to n do
    begin
      read(a[i, j]);
    end;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      w := w + a[j, i];
      q := q + a[i, j];
      dg := dg + a[i, i];
      dp := dp + a[n - j + 1, j];
    end;
    if (w = q) and (dg = dp) and (w = dg) then k := 0;
  end;
  for i:=1 to n-1 do 
    begin
        for j:=i+1 to n do 
          begin
            if a[i] = a[j] then 
              k:=1
          end;
    end;
  if k = 1 then write('NO')
  else write('YES'); 
end.

const nMax=10;
var
  a: array [0..nMax-1,0..nMax-1] of Integer;
  n: Integer;
 
function IsMagic: Boolean;
var i, j, s, t: Integer;
begin
  IsMagic:=False;
 
  s:=0; for i:=0 to n-1 do s:=s+a[i,i];
  t:=0; for i:=0 to n-1 do t:=t+a[i,n-1-i]; if t<>s then Exit;
  for j:=0 to n-1 do begin
    t:=0; for i:=0 to n-1 do t:=t+a[i,j]; if t<>s then Exit;
    t:=0; for i:=0 to n-1 do t:=t+a[j,i]; if t<>s then Exit;
  end;
 
  for i:=0 to Sqr(n)-2 do begin
    s:=i div n; t:= i mod n;
    for j:=i+1 to Sqr(n)-1 do
      if a[s,t]=a[j div n,j mod n] then Exit;
  end;
 
  IsMagic:=True;
end;