Помогите написать программу на Turbo Pascal

Даны следующие типы данных:
type data=record
deni:1..31;
mesiats:1..12;
god:integer;
end;
chelovek=record
imeaFamilia:string;
dataRojdenia:data;
end;
spisokLiudei=array[1..50] of chelovek;

Напишите программу , которая вводит с клавиатуры данные о n лицах(n<50) и выводит на экран:
1)фамилии и имена тех, кто родился в день d месяца;
2)фамилии и имена тех,кто родился в месяц m года;
3)фамилии и имена тех,кто родился в год g;
4)фамилии и имена тех,чья дата рождения d.m.g;