把一组螺旋数字传递给数组(100分)

0 72 73 44
1 71 74 43
2 70 75 42
3 69 76 41
4 68 77 40
5 67 78 39
6 66 79 38
7 65 80 37
9 64 81 36
11 63 82 35
12 62 83 34
13 61 84 33
14 60 85 32
. . . .
. . . .
. . . .
27 46 99 18
28 45 0 17
. . . .
. . . .
35 38 7 10
36 37 8 9
用delphi怎么实现把这些数值传递给数组aa[4][36]呢.
请高手帮帮忙.谢谢了

如果就这些值不变什么的情况下就简单一点好了
a1:=72;
a1:=73;
a1:=44;
for i:=0 to 36 do
begin
aa[0]:=i;
aa[1]:=a1;
aa[2]:=a2;
aa[3]:=a3;
a1:=a1-1;
a2:=a2-1;
a3:=a3-1;
end;
再加个IF判断是不是到了100就行了

如果数据间有逻辑关系，那么按逻辑关系给数组赋值好了，没有逻辑关系就要手动输入，或者从文件读了。

如果数据是确定的，
使用一个数组常量就可以了。
const
MyData : array[1..36,1..4] of integer = ( (0, 72, 73, 44),
(1, 71, 74, 43),
.
.
(36, 37, 8, 9) );