вывести данные

uses
  crt;
type
  info = record
    fam: string;
    sad,gr,day,mounth,year: integer;
  end;
var
  i,k,n,m,num: integer;
  d: info;
  a: array [1..20] of info;
begin
  clrscr;
  write('Vvedite kol-vo zapisey: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    writeln('*** Zapis nomer ',i,' ***');
    write('Vvedite familiyu: ');
    readln(d.fam);
    write('Vvedite nomer sada: ');
    readln(d.sad);
    writeln('Vvedite datu rojdeniya: ');
    write('den: ');
    readln(d.day);
    write('mesyac: ');
    readln(d.mounth);
    write('god: ');
    readln(d.year);
    write('Vvedite gruppu: ');
    readln(d.gr);
    a[i]:=d;
  end;
  clrscr;
  write('Vvedite nomer sada: ');
  readln(num);
  write('Vvedite mesyaz pojdeniya: ');
  readln(m);
  clrscr;
  writeln('Deti sada nomer ',num,', rodivshiesya v ',m,' mesyace');
  for i:= 1 to n do
  begin
    if (a[i].sad=num) and (m=a[i].mounth) then
      writeln('Familia: ',a[i].fam,' Vozrast: ',2009-a[i].year,' Gruppa: ',a[i].gr);
  end;
  readkey;
end.