Pascal/Turbo Pascal - pascal

buenos dias necesito ejercicios para ver en una matriz la diagonal secundaria se que la formula es algo mas o menos asi

For i:= 1 to N do
if (i+j = N +1 ) then
a[ I,i ]:= 0;

agradeceria su apoyo lo mas pronto posible graxias