Чётный разряды м.квадрата

[FlipFan]

Подскажите что-нибудь плз.
Мне нужно сделать магический квадрат nxn, заполненный цифрами от 1 до n, эти цифры не должны повторяться по вертикали горизонтали и диагонали.
Не могу довести до ума как сгенерировать квадрат с чётным разрядом (6х6, 8х8 и т.д). Надеюсь на вашу помощь.

unit Unit1;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    sg: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  Form1: TForm1;
 implementation
 {$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
label error;
var a,b:array[1..168,1..168] of integer;
    n,i,j,x:integer;
    s:string;
begin
  s:=edit1.Text;
  if s='' then goto error;
  n:=strtoint(edit1.Text);
 
 if (n>167) then
  begin
    label1.Caption:='razryad slishkom bolshoi! (n<=167)';
    goto error;
  end;
  if (n<=4) then
  begin
    label1.Caption:='razryad slishkom malenkii!(n>=4)';
    goto error;
  end;
  label1.Caption:='';
  sg.Height:=22*n;
  sg.Width:=22*n;
  sg.ColCount:=n;
  sg.RowCount:=n;
 
  for i:=1 to n do
  begin
    for j:=i to n do a[i,j-i+1]:=j;
    for j:=1 to i-1 do a[i,n-(i-j)+1]:=j;
  end;
  x:=0;
  for i:=1 to n do
  begin
    if (i mod 2)=1 then
    begin
      inc(x);
      for j:=1 to n do
        b[x,j]:=a[i,j];
    end;
  end;
 
  for i:=1 to n do
  begin
    if (i mod 2)=0 then
    begin
      inc(x);
      for j:=1 to n do
        b[x,j]:=a[i,j];
    end;
  end;
 
 for i:=1 to 101 do
    for j:=1 to 101 do
      sg.Cells[j-1,i-1]:='';
 
  for i:=1 to n do
    for j:=1 to n do
      sg.Cells[j-1,i-1]:=inttostr(b[i,j]);
  error:
end; 
end.

м. квадрат.zip на всякий случай.

[Аватар]

http://old.kspu.ru/magazine/no4/pub/pr3-4.htm
http://www.klassikpoez.narod.ru/metody.htm

[FlipFan]

Мне нужен не совсем магический квадрат, а латинский где квадрат NxN заполненный числами от 1 до N а не до N в квадрате. (немного отличаются)



ап.