Определить наибольший элемент нечётных строк матрицы размерности 5*5 - Pascal

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

Определить наибольший элемент нечётных строк матрицы L размерности 5*5, значение его присвоить переменной K и вывести на экран.

Решение задачи: «Определить наибольший элемент нечётных строк матрицы размерности 5*5»

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

const
    nMax = 5;
var
    a: Array[0..nMax - 1, 0..nMax - 1] Of ShortInt;
    i, j, iMax, jMax: Byte;
    k: ShortInt;
begin
    Randomize();
    WriteLn('Original array');
    iMax := 0; jMax := 0;
    for i := 0 to nMax - 1 do
    begin
        for j := 0 to nMax - 1 do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:5);
            if ((Not Odd(i)) And (a[i, j] > a[iMax, jMax]))
            then
            begin
                iMax := i;
                jMax := j;
            end;
        end;
        WriteLn;
    end;
    WriteLn;
    k := a[iMax, jMax];
    Write('k=', k);
end.

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

Объявление константы nMax со значением 5.
Объявление переменной a как двумерного массива размерности 5*5, содержащего целые числа.
Объявление переменных i, j, iMax, jMax как целых чисел типа Byte.
Объявление переменной k как целого числа типа ShortInt.
Инициализация генератора случайных чисел.
Вывод сообщения Original array.
Инициализация iMax и jMax нулевыми значениями.
Начало двойного цикла по переменным i и j от 0 до nMax - 1.
Генерация случайного числа для каждого элемента массива a и вывод его на экран.
Проверка, является ли строка i четной и больше ли текущий элемент, чем элемент с координатами iMax и jMax. Если условие выполняется, обновление iMax и jMax.
Переход на новую строку.
Вывод пустой строки.
Присвоение переменной k значения элемента массива a с координатами iMax и jMax.
Вывод значения переменной k.