Определить день, когда был получен наибольший доход - Turbo Pascal

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

Дано начало программы, нужно её дописать, чтобы она соответствовала условию: а) Программа определяет день, когда был получен наибольший доход. б) Программа определяет день, когда был получен наименьший доход. Начало программы:

type Zi = (L, Ma, Mi, J, V, S, D,) ;
 Venit = array [Zi] of real ;
var
 a : Venit ;

Бьюсь над этой программой, всё никак не могу написать

Решение задачи: «Определить день, когда был получен наибольший доход»

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

var
  Indx: Zi;
begin
......... ввод
  max:=a[L];
  for Indx:=L to D do
    if max<a[Indx] then
      max:=a[Indx];
  writeln(max);
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для определения дня, когда был получен наибольший доход. В начале кода объявляются переменные:

Indx - индекс, используемый в цикле;
max - переменная для хранения наибольшего дохода. Далее происходит ввод данных. Затем, в цикле от L до D происходит сравнение текущего значения переменной a[Indx] с максимальным значением max. Если текущее значение меньше максимального, то max обновляется на текущее значение. По окончании цикла, выводится значение max - наибольший доход. Таким образом, данный код позволяет определить день, когда был получен наибольший доход.