Описать тип TDate - запись с полями целого типа Day (день), Month (месяц) и Year (год)

Пожалуйстаю, помогите с задачей!

Описать тип TDate - запись с полями целого типа Day (день), Month (месяц) и Year (год) - и функцию

LeapYear (D) логического типа с параметром типа TDate, которая возвращает TRUE, если на дату D является високосным, и FALSE

в противном случае. Также описать функцию DaysInMonth (D) целого типа с параметром типа Tdate, которая возвращает

количество дней месяца, указанного в дате D. Вывести значение функции DaysInMonth для пяти данных дат

(предполагается, что все даты являются правильными).

Буду благодарна.