помогите очень очень срочно! помогите!

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