Напишите программу, которая выводит с клавиатуры данные о n лицах (n=<50)

[Lera990]

type data=record
day:1..31;
month: 1..12;
year:integer;
end;
Person=record
namesurname:string;
birthday: data
end;
listpersons=array [1..50] of Person

Напишите программу, которая выводит с клавиатуры данные о n лицах (n=<50) и выводит на экран: а)фамилии и имена тех,кто родился в день z месяца;

[Stilet]

for i:=1 to 50 do begin
 if (listpersons[i].birthday.month=z) then
   writeln(
      listpersons[i].namesurname:20
     ,listpersons[i].birthday.day:2,'.'
     ,listpersons[i].birthday.month:2,'.'
     ,listpersons[i].birthday.year:4
   )
end;

Годится?