Найти наибольшее число и их количество - Pascal

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

Даны 30 чисел в диапазоне от -20 до 10. Найти наибольшее число и их кол-во.

Решение задачи: «Найти наибольшее число и их количество»

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

const
    n_max = 30;
var
    a: Array[0..n_max - 1] Of ShortInt;
    i, count, iMax: Byte;
begin
    Randomize(); iMax := 0;
    Write('Array:');
    for i := 0 to n_max - 1 do
    begin
        a[i] := Random(31) - 20;
        Write(a[i]:4);
        if (a[i] > a[iMax])
        then
            iMax := i;
    end;
    count := 0; WriteLn; WriteLn('Max=', a[iMax]);
    for i := 0 to n_max - 1 do
        if (a[i] = a[iMax])
        then
            Inc(count);
    WriteLn; Write('Count=', count);
end.

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

Объявление константы n_max со значением 30.
Объявление массива a размерности от 0 до n_max - 1 заполненного элементами типа ShortInt.
Объявление переменных i, count и iMax типа Byte.
Инициализация генератора случайных чисел.
Вывод на экран фразы Array:.
Заполнение массива a случайными числами от -20 до 10.
Вывод на экран всех значений массива a.
Поиск индекса наибольшего элемента в массиве.
Вывод на экран значения наибольшего элемента массива.
Подсчет количества встречающихся в массиве наибольших чисел.
Вывод на экран количества наибольших чисел в массиве.