Помогите решить программу на паскале

Используя типы Color и Month (пример 1), определить порядковые номера значений green, black, mar, dec, а также succ(nov и pred(feb). помогите решить

ПРИМЕР: Пример 1.
Type
Operaс=(plus,minus,mult,divide);
Color=(black,white,blue,green,yellow,red,grey);
Month=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
Логический и литерный типы являются частными случаями
перечисляемого типа, например:
Type
Boolean = (false, true);
Тип–диапазон. В любом порядковом типе можно выделить подмножество
значений, определяемое минимальным и максимальным значениями. Такое
подмножество определяет тип–диапазон.