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

Question

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

Answer 1

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
    Voz = record
    Voz  : string[5];   // возраст
end;
type
    GR=record
    group : byte;  // группа
end;
type
    child=record
    childFIO   : FIO;
    childDATE  : DATE;
    childGR    : GR;
    childVoz    : Voz;
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].childVoz.Voz);
    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].childVoz.Voz);
    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.

Answer 2

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.