Паскаль - Распечатать фамилии детей данного детского сада,которые родились в определенном месяце

[Оксана Логачёва]

№1.
Распечатать фамилии детей данного детского сада,которые родились в определенном месяце;указать их возраст и группу.

[DoDge_VipeR]

.......................
writeln('ВВедите № месяца');
readln(nbm);
for i:=1 to n do
if a.bm = nbm then writeln (a.fio,'     ', a.gr,'       ', 2010-a.y:5 ); 
.............