Pascal вывод данных

[_FENDER_]

Помогите написать программу с 4 вариантами вывода данных..Условие:
Напишите программу, которая выводит с клавиатуры данные о n лицах (n=<50) и выводит на экран:
а)фамилии и имена тех,кто родился в день z месяца;
б)фамилии и имена тех, кто родился в месяц l года;
в)фамилии и имена тех, кто родился в год a;
г)фамилии и имена тех, чья дата рождения z.l.a ;

[rubius2008]

1. зарегистрируй тип-запись

type TPeople=record
              fio:string;
              data:string[10]; {10.10.2010}
         end;

2. получаем день, месяц и год

...
var p:array[1..n] of TPeople;
...     
s:=copy(p[i].data,1,pos('.',p[i].data)-1); delete(p[i].data,1,pos('.',p[i].data));
val(s,day,code);
s:=copy(p[i].data,1,pos('.',p[i].data)-1); delete(p[i].data,1,pos('.',p[i].data));
val(s,month,code);
val(s,year,code);
{дальше вывод фио текущей записи по условию}

[Mad_Cat]

type tdate=record
d:integer;
m:integer;
y:integer;end;
type tperson=record
fio:string[80];
dat:Tdate;
end;
{....}
var p:array[1..100] of TPerson;
{....}
for i:=1 to n do
{1}if p[i].dat.d=z then{вывод}
{2}if p[i].dat.m=l then{вывод}
{3}if p[i].dat.y=a then{вывод}
{4} if {все 3 условия вместе} then {вывод}