Как вывести каждую диагональ матрицы ? (на си или pascal) Как вывести каждую диагональ матрицы ?

for i := 1 to n do
write(matr[i,i] : 4);//главная диагональ
for i := 1 to n do
write (matr[i,n-i+1] : 4);//побочная диагональ