Напишите программу на паскале. В двумерном массиве Z[1..5,1..5]найти наименьший элемент среди элементов вспомогательной(побочной) диагонали

var Z:array[1..5,1..5] of real;    i, j: integer;    min: real;   begin    for i := 1 to 5 do       for j := 1 to 5 do          readln(Z[i,j]);    min := Z[1,5];    for i := 2 to 5 do       if (min > Z[i,6-i]) then          min := Z[i,6-i];    writeln("Min value is ",min) end.