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

    program hgft;
type
   Sad=record
        Familija : String[30];
         Imja: String[20];
         God:integer;
         mesjac:integer;
         gruppa:  String;
   end;
   var
     a:array[1..100] of sad ;
    N,i,m,j:integer;
     begin
     writeln('Vvedite kolichestvodeetej');
     readln(n);
     For I:=1 to n do
     begin
      writeln('Dannye ',i, 'rebenka');
      writeln ('vvedite Familiju ');
      readln(a[i].Familija);
      writeln ('vvedite Imja');
      readln(a[i].Imja );
      writeln ('vvedite God rohjdeniaj');
      readln(a[i].god);
      writeln ('vvedite mesjac rojhdenija');
      readln(a[i].mesjac);
      writeln ('vvedite gruppu ');
      readln(a[i].gruppa );
     end;
 
     Writeln('VVedite nomer mesjaca');
     readln(m);
     For j:=1 to n do
     begin
      if a[i].mesjac=m then
      begin
      writeln(a[i].Familija,'  ',a[i].Imja,'  Gruppa:' ,a[i].gruppa,'   vozrast:',2010-a[i].god);
      end;
      readln;
     end;
 end.