Проверить, лежит ли на побочной диагонали минимальный положительный элемент матрицы A(n,n) - Free Pascal

Формулировка задачи:

помогите

Решение задачи: «Проверить, лежит ли на побочной диагонали минимальный положительный элемент матрицы A(n,n)»

Листинг программы

Uses crt;
Const N=7;
Var i,j,min:Integer;
      pp:Boolean;
    a:Array[1..N,1..N] Of Integer;
BEGIN
randomize;
pp:=False; min:=30000;
For i:=1 To N Do Begin
    For j:=1 To N Do Begin
    Textcolor(7);
        a[i,j]:=Random(99)+1;
        If a[i,j]<min Then Begin
            min:=a[i,j];
            pp:=False;
        End;
        If abs(j-n)+1=i Then Begin {If j=i Then...  Dlya drugoi diagonali}
      Textcolor(12);
      If a[i,j]<=min Then Begin
               pp:=True;
               min:=a[i,j];
      End;
        End;
    Write(a[i,j]:4);
    End;
    Writeln;
End;
If pp Then Begin
   Textcolor(12);
   Writeln('da! ',min)
End Else Begin
    Textcolor(7);
    Writeln('net! ',min);
End;
Readln;
END.

Объяснение кода листинга программы

Объявление переменных и массива.
Инициализация начального значения переменной min.
Инициализация начальных значений переменной pp и min.
Заполнение массива случайными значениями.
Проверка каждого элемента матрицы на побочной диагонали.
Если элемент на побочной диагонали меньше текущего минимального значения, то обновляем значение min и устанавливаем флаг pp в False.
Если элемент на побочной диагонали равен текущему минимальному значению, то обновляем значение min и устанавливаем флаг pp в True.
Вывод каждого элемента матрицы.
Вывод сообщения о том, лежит ли на побочной диагонали минимальный положительный элемент матрицы.
Если pp=True, то выводим сообщение да! и значение min.
Если pp=False, то выводим сообщение нет! и значение min.
Чтение ввода пользователя для завершения программы.