Друзья, помогите с задачкой на Pascal

1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
0 2 0 0 0 0 0 0 0 0 0 0 0 2 0
0 0 3 0 0 0 0 0 0 0 0 0 3 0 0
0 0 0 4 0 0 0 0 0 0 0 4 0 0 0
0 0 0 0 5 0 0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0 6 0 0 0 0 0
0 0 0 0 0 0 7 0 7 0 0 0 0 0 0
0 0 0 0 0 0 0 8 0 0 0 0 0 0 0
0 0 0 0 0 0 9 0 9 0 0 0 0 0 0
0 0 0 0 0 10 0 0 0 10 0 0 0 0 0
0 0 0 0 11 0 0 0 0 0 11 0 0 0 0
0 0 0 12 0 0 0 0 0 0 0 12 0 0 0
0 0 13 0 0 0 0 0 0 0 0 0 13 0 0
0 14 0 0 0 0 0 0 0 0 0 0 0 14 0
15 0 0 0 0 0 0 0 0 0 0 0 0 0 15

for i:=1 to n do begin a[i,i]:=i; a[n+1-i,i]:=i end;