Заполнение массива. Delphi

[Vobydyn]

Нужно заполнить массив данным способом.

уже знаком со способами "змейка","зигзаг" и "улитка".(с горем пополам разобрался с ними.а у этого даже названия не знаю)
подобная задача ввела в ступор, пропарился на практике 3 часа,но так ничего и не родил.

буду благодарен за код, ОЧЕНЬ благодарен за код с описанием(не желательно использование 2-го массива).

[TinMan]

А что значат эти стрелочки?..
Хоть бы пример привел, что ли..

[Vobydyn]

так было в задание. сам особо не догнал. видимо так:
. 2 3 4 .
2 . 1 . 2
3 1 . 1 3
4 . 1 . 4
. 2 3 4 .

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=15;
var a:array[1..n,1..n] of integer; i,j,v:integer;

var c,q,w,r:integer;
begin
 c:=n div 2 +1;
 r:=0;v:=1;
 for i:=c+1 to n do begin
   for j:=c-r to c+r do begin
     a[i,j]:=v;
     a[n-i+1,j]:=v;
     a[j,i]:=v;
     a[j,n-i+1]:=v;
     inc(v);
   end; inc(r);
 end;


 for i:=1 to n do begin
   for j:=1 to n do begin
     if a[i,j]<>0 then    write(a[i,j]:5) else write(' ':5);
   end; writeln;
 end;
 readln;
end.

Подходит?

[Vobydyn]

ок. щас гляну

[TinMan]

Сообщение от Vobydyn

так было в задание. сам особо не догнал. видимо так:
. 2 3 4 .
2 . 1 . 2
3 1 . 1 3
4 . 1 . 4
. 2 3 4 .

Может, я тупой, но я честно не врубаюсь. Я не умею заполнять числовой массив точками. Если решение Стилета тебе подходит - хорошо. Но все же я бы рекомендовал доводить условие до полной ясности, и в случае недогона наседать на преподавателя и требовать разъяснений.
Успехов.