Пожалуйста посчитайте пожалуйста.Дана матрица 5 на 5. Найти наименьшее из значений элементов побочной диагонали и двух соседних с ней линий ( Pascal ABC ).

var
  A: array[1 .. 5,1 .. 5] of integer;
  i, j, n, min: integer;
begin
randomize;
n := 5;
writeln('Случайная матрица:');
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    A[i,j]:=Random(51)-25;
    write(A[i,j]:4);
  end;
  writeln;
end;

//Верхняя
j := n;
min := A[1, n - 1];
for i := 1 to n - 1 do
begin
  j := j - 1;
  if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней верхней диагонали: ',min);

//Побочная
j := n + 1;
min := A[1, n];
for i := 1 to n do
begin
  j := j - 1;
  if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент побочной диагонали: ',min);

//Нижняя
j := n + 1;
min := A[2, n];
for i := 2 to n do
begin
  j := j - 1;
  if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней нижней диагонали: ',min);
end.

1. А нет прости