Вычислить среднее арифметическое элементов массива, меньших 5 - Pascal

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

Дан массив целых чисел размером 4*4. Вычислить среднее арифметическое элементов меньше 5 и количество элементов больших 5

Решение задачи: «Вычислить среднее арифметическое элементов массива, меньших 5»

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

const
    N = 4;
var
    ar: Array[1..N, 1..N] Of ShortInt;
    i, j: 1..N;
    countLess, countMore: 1..N*N;
    avr: Real;
begin
    avr := 0; countLess := 0; countMore := 0;
    Randomize; WriteLn('Original matrix:');
    for i := 1 to N do
    begin
        for j := 1 to N do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[i, j] > 5)
            then
                Inc(countMore)
            else
                if (ar[i, j] < 5)
                then
                begin
                    Inc(countLess);
                    avr := avr + ar[i, j];
                end;
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('Count >5: ', countMore);
    if (countLess <> 0)
    then
        WriteLn('AVR = ', (avr / countLess):0:2)
    else
        WriteLn('No one less than 5');
end.

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

Создание константы N со значением 4.
Объявление массива ar размерности [1..N, 1..N] типа ShortInt для хранения целочисленных значений.
Объявление переменных i, j для циклов от 1 до N.
Объявление переменных countLess и countMore для подсчета элементов массива, меньших и больших 5, со значениями 0.
Объявление переменной avr типа Real для вычисления среднего арифметического.
Присвоение начальных значений переменным: avr = 0, countLess = 0, countMore = 0.
Инициализация генератора случайных чисел.
Вывод сообщения Original matrix:.
Вложенный цикл перебора элементов массива с присвоением случайных значений и их выводом. При этом считается количество элементов больших, меньших и вычисляется среднее значение меньших чем 5 элементов.
Вывод количества элементов больших 5.
Если количество элементов меньших 5 не равно 0, выводится среднее арифметическое этих элементов, иначе сообщение No one less than 5.