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

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.