Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение - Pascal

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

Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с параметром. Задана последовательность из n целых чисел определить сколько из них принимает максимальное значение. Буду очень благодарен!)))

Решение задачи: «Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение»

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

program zad;
var
  mass : array of ShortInt;
  i, n, count : Byte;
  max : ShortInt;
 
begin
  Randomize;
  Write('Input n='); ReadLn(n);
  SetLength(mass, n);
  max := -100;
  for i := 0 to n-1 do
  begin
    mass[i] := Random(21) - 10;
    if (max < mass[i]) then
      max := mass[i];
    Write(mass[i]:4, #9);
  end;
  WriteLn;
  count := 0;
  for i := 0 to n-1 do
    if (max = mass[i]) then
      Inc(count);
  WriteLn('count=', count);
end.

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

Программа начинается с объявления переменных: mass, i, n, count и max. Переменная mass является массивом целых чисел, i - счетчиком, n - длиной массива, count - счетчиком количества чисел, которые принимают максимальное значение, а max - максимальным значением.
Затем выполняется инициализация генератора случайных чисел с помощью функции Randomize.
Пользователю предлагается ввести количество чисел в массиве n. Это значение сохраняется в переменной n.
С помощью функции SetLength устанавливается длина массива mass равной n.
Изначально значение переменной max устанавливается на -100.
Запускается цикл for, который выполняется n-1 раз. На каждой итерации числа в массиве mass генерируются случайным образом с помощью функции Random(21) - 10, и записываются в соответствующие позиции массива.
Внутри цикла сравнивается текущее значение max с каждым числом в массиве mass. Если текущее значение max меньше какого-либо числа в массиве, то оно обновляется.
После завершения внутреннего цикла, выполняется внешний цикл for, который считывает количество чисел в массиве mass, которые принимают максимальное значение. Это значение сохраняется в переменной count.
Выводится сообщение с количеством чисел, которые принимают максимальное значение.
Программа завершается.