1:
2:

var
Zahlen:array of array of integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
n:=strtoint(Edit1.Text);
SetLength(Zahlen,n);
for i:=0 to n-1 do
    SetLength(Zahlen[i],n);
for i:=1 to sqr(n) do begin
    {...}
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private-Deklarationen}
    public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;

TYPE Magquad = array [1..23,1..23] of Integer;


var quadrat: Magquad;
Zeilenzahl,n: Integer;

implementation

{$R *.DFM}


function nachfolger(k: Integer): Integer;
begin { von nachfolger }
if k < Zeilenzahl then nachfolger:= k+1
else nachfolger:= 1
end;


function vorgaenger(k: Integer): Integer;
begin { von vorgaenger }
if k > 1 then vorgaenger:= k-1
else vorgaenger:= zeilenzahl
end;

procedure TForm1.Button1Click(Sender: TObject);
var zahl, i, j: Integer;
begin
if Zeilenzahl mod 2 = 0 then Zeilenzahl := Zeilenzahl + 1;
Edit1.Text := IntToStr(Zeilenzahl);
StringGrid1.Rowcount := Zeilenzahl;
StringGrid1.Colcount := Zeilenzahl;
n:= zeilenzahl * zeilenzahl;
for i:= 1 to zeilenzahl do
for j:= 1 to zeilenzahl do StringGrid1.Cells[i-1,j-1] := '0';
j:= zeilenzahl div 2;
i:= j+1; 
for zahl:= 1 to n do begin
i:= nachfolger(i); j:= nachfolger(j);
while StringGrid1.Cells[i-1,j-1] > '0' do begin
i:= nachfolger(i); j:= vorgaenger(j); 
end;
StringGrid1.Cells[i-1,j-1] := IntToStr(zahl);
end; 
end;




end.					

1:

Zeilenzahl:=strtoint(Edit1.Text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    x,y, x_alt, y_alt: INTEGER;
begin
  n:=strtoint(Edit1.Text);
  SetLength(Zahlen,n,n);

  for x:=0 to n-1 do
    for y:=0 to n-1 do
      zahlen[x,y]:=0;  //Array initialisieren

  x:=n div 2; //kleinster Index ist Null, daher stimmt das.
  y:=0;
  for i:=1 to sqr(n) do
  begin
    zahlen[x,y]:=i; //Feld belegen
    x_alt:=x; y_alt:=y; //Ursprungsfeld speichern
    inc(x); dec(y); //Springen
    x:=x mod n; if y < 0 then y:=n-1; //x und y in den richtigen Bereich
    if zahlen[x,y] <> 0 then //Zielfeld belegt?
    begin //wenn ja, vom Ursprungsfeld eins nach unten gehen.
      y:=y_alt+1; y:=y mod n;
      x:=x_alt;
    end;
  end;

  StringGrid1.ColCount:=n;
  StringGrid1.RowCount:=n;
  for x:=0 to n-1 do
    for y:=0 to n-1 do
      StringGrid1.Cells[x,y]:=IntToStr(zahlen[x,y]);
end;