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

uses crt;
const N=3; //êîëè÷åñòâî äåòåé
type
    FIO = record
    family  : string[20];   // ôàìèëèÿ
    name    : string[15];   // èìÿ
end;
type
    DATE = record
    number  : byte;  // ÷èñëî
    month   : byte;  // ìåñÿö
    year    : integer;  // ãîä
end;
type
    GR=record
    group : byte;  // ãðóïïà
end;
type
    child=record
    childFIO   : FIO;
    childDATE  : DATE;
    childGR    : GR;
end;
 
var A :array[1..N] of child;
    i,k,j : byte;
 
begin
//**************ÂÂÎÄ ÄÀÍÍÛÕ*********************************
for i:=1 to N do
begin
    write('Ôàìèëèÿ: '); readln(A[i].childFIO.family);
    write('Èìÿ: '); readln(A[i].childFIO.name);
    write('Äàòà ðîæäåíèÿ: '); readln(A[i].childDATE.number, A[i].childDATE.month, A[i].childDATE.year);
    write('Ãðóïïà: '); readln(A[i].childGR.group);
end;
clrscr;
//*************ÂÛÂÎÄ ÄÀÍÍÛÕ*********************************
writeln('***************************************');
for i:=1 to N do
begin
    writeln('Ôàìèëèÿ: ', A[i].childFIO.family);
    writeln('Èìÿ: ', A[i].childFIO.name);
    writeln('Äàòà ðîæäåíèÿ: ', A[i].childDATE.number,' ', A[i].childDATE.month,' ', A[i].childDATE.year);
    writeln('Ãðóïïà: ', A[i].childGR.group);
writeln('***************************************');
end;
//äåòè êîòîðûå ðîäèëèñü â îïðåäåëåííîì ìåñÿöå
write('ìåñÿö äëÿ ïîèñêà: '); readln(k);
j:=0;
for i:=1 to N do
    if k = A[i].childDATE.month then
    begin
    j:= j + 1;
    if j = 1 then writeln('äåòè êîòîðûå ðîäèëèñü â ',k,' ìåñÿöå');
    writeln(j,') ', A[i].childFIO.family,',   ',2014-A[i].childDATE.year,' ëåò,   ',A[i].childGR.group,' ãðóïïà' );
    end;
if j = 0 then writeln('äåòåé êîòîðûå ðîäèëèñü â ',k,' ìåñÿöå íåò');
end.