Массив осадков, определить дату самого дождливого дня - PascalABC.NET

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

В массиве хранится информация о количестве осадков выпавших за каждый день июля. Определите дату самого дождливого дня. Если таких дней было несколько, то должна быть найдена дата: а) первого из них б) последнего из них

Решение задачи: «Массив осадков, определить дату самого дождливого дня»

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

rainyDay := 1;
for var Day := 1 to 31 do
  if rainFall[Day] > rainFall[rainyDay] then
    rainyDay := Day;
WriteLn(rainyDay);

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

Переменная rainyDay инициализируется значением 1.
Происходит цикл от 1 до 31 с помощью оператора to.
В каждой итерации цикла сравнивается количество осадков в текущий день с самым большим количеством осадков, хранящимся в переменной rainyDay.
Если количество осадков в текущий день больше, чем в переменной rainyDay, то значение переменной rainyDay обновляется значением текущего дня.
После завершения цикла, выводится значение переменной rainyDay, которое представляет дату самого дождливого дня.