Найти количество четных элементов в двумерном массиве - Pascal

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

Масив двовымерный з целыми числами

Решение задачи: «Найти количество четных элементов в двумерном массиве»

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

var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, n, m: Byte;
    count: Word;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m=');
        ReadLn(m);
    until (m > 0);
    Randomize(); count := 0;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (Not Odd(ar[i, j]))
            then
                Inc(count);
        end;
        WriteLn;
    end;
    Write('Even count=', count);
end.

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

Объявляется двумерный массив ar типа Byte с элементами типа ShortInt.
Объявляются переменные i, j, n, m типа Byte для использования в циклах.
Объявляется переменная count типа Word для подсчета количества четных элементов в массиве.
Вводится значение n с помощью цикла repeat-until. Значение не может быть меньше или равно 0.
Аналогично вводится значение m.
Вызывается процедура Randomize для генерации случайных чисел.
Инициализируется count нулевым значением.
Запускается цикл по переменной i от 0 до n-1.
Вложен внутренний цикл по переменной j от 0 до m-1.
Присваивается случайное значение элементу массива ar[i, j] в диапазоне от -99 до 99.
Выводится значение ar[i, j] с шириной 4 символа.
Если элемент ar[i, j] четный (его остаток от деления на 2 равен 0), то увеличивается значение переменной count на 1 с помощью процедуры Inc.
После завершения внутреннего цикла выводится перевод строки.
Выводится количество четных элементов в массиве, хранящееся в переменной count.