Как в двумерном массиве прописать вторую диагональ(не главную). Какие версии << На главную или назад  

Столкнулся с проблемой когда писал прогу в бурсе

нужно при обходе змейкой по столбцах при парном вверх при непарном вниз и должно получится

0 0 0 0 1
0 0 0 8 2
0 0 9 7 3
0 0 0 6 4
0 0 0 0 5

в общем прога моя в которой прописать осталось толко 2-ую диагональ

const n=5;
var a: array [1..n,1..n] of integer;
i,j,k,r:integer;

begin
k:=1; r:=(n div 2)+1;

for j:=n downto r do
begin
if odd(j) = true then
for i:=1 to j do
begin
a[i,j]:=k; inc(k);
end;

if odd(j)=false then
for i:=j downto 1 do
begin
a[i,j]:=k; k:=k+1;
end;
end;

for i:=1 to n do
begin
for j:=1 to n do
begin
write(A[i,j]:4);
end;
writeln;
end;
readln;
end.