Дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали. (В Паскале)

Вывод - координаты положительных элементов побоч диагонали (вначале строка, потом столбик)

var a:array[1 ... 5,1 ... 5]of integer;

i, j:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

a[i, j]:=random (19) - 9;

for i:=1 to 5 do

for j:=1 to 5 do begin

write (a[i, j],' ') ;

if j=5 then writeln;

end;

writeln;

for i:=1 to 5 do

for j:=1 to 5 do

if (i=5-j+1) and (a[i, j]>0) then writeln (i,' ', j) ;

end.