Помогите пожалуйста! Очень срочно надо!

type Zi = (L,Ma,Mi,j,V,S,D);
venit=array [zi] of real ;
var v : Venit ;
Компоненты переменной v представляют собой ежедневный доход предприятия .Напишите программу, кторая:
в) определяет день, когда был получен наибольший дог) ход;
г) определяет ден, когда был получен наименьший доход

написать программу