Построить магический квадрат порядка n

type 
   mas=array[1..20,1..20] of integer;
var
  A:mas;
  i,j,n:integer;
 
procedure kvadrat(var A:mas;n:integer);
var
  i,j:integer;
begin
  for i:=1 to n do 
    for j:=1 to n do begin
       a[i,j]:= 1+((i+j-1+n div 2) mod n)*n+(i+2*(j-1)) mod n;
    end;
end;  
begin
  repeat
    write('введите порядок квадрата (нечетное число от 3 до 19)>');
    readln(n);
  until (n>2)and (n<21) and (odd (n));  
  kvadrat(A,n);//расчет квадрата
  for i:=1 to n do begin
    for j:=1 to n do write(A[i,j]:3);
    writeln;
  end;
end.

uses crt;
Const  mn = 16;
Var p: Boolean;
 
Procedure Swap(Var a, b: Integer);
Var T: Integer;
Begin
T := a;
a := b;
b := T
End;
 
Procedure CreateMagic(n: Integer);
Var i, j, k, s, b, r, m: Integer;
    a: Array[1 .. mn, 1 .. mn] Of Integer;
Begin
p := True;
If Odd(n) Then
 Begin
  i := 1;
  j := Succ(n div 2);
  For k := 1 To Sqr(n) do
   Begin
    a[i,j] := k mod n;
    if k mod n=0 then
     begin
      a[i,j]:=n;
      Inc(i)
     end
    Else
     Begin
      Dec(i);
      Inc(j);
      If i = 0 Then i := n;
      If j > n Then j := 1
     End
   End;
 End
Else If n mod 4 = 0 Then
 Begin
  k := 1;
  For i := 1 To n Do
  For j := 1 To n Do
   Begin
    a[i, j] := k;
    Inc(k);
    if k=n+1 then k:=1;
   End;
  j := 2;
  m := n div 2;
  For i := 1 To m Do
  For k := 1 To m Div 2 Do
   Begin
    If j = Succ(m) Then j := 2
    Else If j = (m + 2) Then j := 1;
    s := Succ(n - i); b := Succ(n - j);
    Swap(a[i, j], a[s, b]);
    Swap(a[i, b], a[s, j]);
    Inc(j, 2)
   End
 End
Else If n <> 2 Then
 Begin
  k := 1;
  For i := 1 To n Do
  For j := 1 To n Do
   Begin
    a[i, j] := k;
    Inc(k);
    if k=n+1 then k:=1;
   End;
  r := Pred(n div 2) div 2;
  m := n div 2;
  For i := 1 To m Do
   Begin
    j := i;
    For k := 1 To r Do
     Begin
      If j > m Then j := 1;
      s := Succ(n - i);
      b := Succ(n - j);
      Swap(a[i, j], a[s, b]);
      Swap(a[i, b], a[s, j]);
      Inc(j)
     End
   End;
  i := 1;
  j := Succ(r);
  For k := 1 To m Do
   Begin
    If j > m Then j := 1;
    s := Succ(n - i);
    Swap(a[i, j], a[s, j]);
    Inc(i); Inc(j)
   End;
  i := 1;
  j := r + 2;
  For k := 1 To m Do
   Begin
    If j > m Then j := 1;
    b := Succ(n - j);
    Swap(a[i, j], a[i, b]);
    Inc(i); Inc(j)
   End
 End
Else p := False;
If p Then
 Begin
  For i := 1 To n Do
   Begin
    For j := 1 To n Do
    Write(a[i, j]: 4);
    WriteLn
   End
 End
Else WriteLn( 'do not exists' );
End;
 
Var n: Integer;
begin
clrscr;
Write('n = ');
ReadLn(n);
CreateMagic(n);
readln
end.