Заполнение квадратной матрицы по спирали [Delphi]

[willams]

ну в общем сабж ... нужно создать матрицу 5*5 чтоб она заполнялась по спирали типа ну я как бы начал но у меня не работает чет...:confused :

{p:=n*n;
if odd(n) then
  begin
  n:=nn;
    q:=nn/2;
    i:=q+1;
    j:=q;
    a[i,j]:=p;
   { for j:=q-1 to q do
      begin
        p:=p-1;
        a[i,j]:=p;
        end;
     if i=j then
      for i:=j to 1 do
      p:=p-1;
      a[i,j]:=p;
      end
    else
    if j>i then
      for j:=i+1 to 1 do
        begin
          p:=p-1;   
           end; }


     {
for i:=1 to n  do
  for j:=1 to n   do
  sg.Cells[j-1,i-1]:=inttostr(a[i,j]);
                                        }

{begin
p:=0;
for k:=2 to 2*n do
  begin
    if k<=n+1 then
      begin
        q:=1;
        q1:=k-1;
      end
    else
      begin
      q:=k-n;
      q1:=n;
      end;
    if odd(k) then
    for i:=q to q1 do
      begin
      p:=p+1;
      j:=k-i;
      a[i,j]:=p;
      showmessage(inttostr(p));
      end
    else
    for i:=q1 downto q do
      begin
      p:=p+1;
      j:=k-i;
      a[i,j]:=p;
      showmessage(inttostr(p));
      end;
  end;
for i:=1 to n do
  for j:=1 to n do
  gr.Cells[j-1,i-1]:=inttostr(a[i,j]);
   }

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Smitt&Wesson]

Что именно не работает?
Код не структурирован и не аннотирован.
Очень сложно понять, что к чему.
Лучше приведи участок подозрительного (на твой взгляд) кода.
И вопросы задавай поконкретнее. Я хоть и экстрасенс, но не на столько.
Чужие мысли на расстоянии читать не умею. Увы .

[Serge_Bliznykov]

внизу страницы "Похожие темы", там смотрели?
На форуме многократно выкладывались варианты решения этой задачи...