В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. Вывести на экран его индексы и значения. Помогите с информатикой...Срочно.

Pascalvar a:array[1..5,1..5] of integer;i,j,imin,amin:integer;beginfor i:=1 to 5 do  for j:=1 to 5 do    read(a[i,j]);imin:=1;for i:=1 to 5 do  for j:=1 to 5 do     if (5 - i = j - 1) then     if (a[imin, 5 - imin + 1] > a[i, j]) then        begin          amin:=a[i,j];          imin:=i;        end; writeln(amin, '[',imin,', ',5 - imin + 1,']');end.