Найти наибольший элемент квадратной матрицы, лежащий на главной диагонали - Free Pascal

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

В двумерном массиве А [1..n,1..n] найти наибольший элемент, лежащий на главной диагонали.

Решение задачи: «Найти наибольший элемент квадратной матрицы, лежащий на главной диагонали»

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

Const nmax = 20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n:integer;
    max:integer;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    max:=A[1,1];
    For i:=2 to n do
     if A[i,i]>max then max:=A[i,i];
    writeln('Max элемент лежащий на главной диагонали = ',max);
    readln;
End.

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

Объявлены переменные: A (массив), i, j, n (счетчики), max (для хранения максимального элемента).
Цикл Repeat предназначен для получения от пользователя ввода числа N (размер матрицы).
Внутренний цикл For i:=1 to n выполняет заполнение матрицы случайными числами от 15 до 45.
После заполнения матрицы выводится на экран.
Выполняется поиск максимального элемента на главной диагонали (внутренний цикл For i:=2 до n).
Выводится на экран максимальный элемент.
Запрос на ввод для выхода из программы.