type Дата= record
День:1..31;
Месяц: 1..12;
Год: integer;
end;
Ученик= record
ИмяФамилия:string;
ДатаРождения:Дата;
end;
СписокУчеников= array [1..4] of Ученик;

var a:СписокУчеников; i:integer; x,y:1..31;
begin
for i:=1 to 4 do
with a[i] do begin
write('Введите имя и фамилию: ');readln(ИмяФамилия);
write('Введите дату рождения (число, месяц, год через пробел)'); 
readln(ДатаРождения.День,ДатаРождения.Месяц,ДатаРождения.Год);
end;
write('Введите нужный день и месяц: ');readln(x,y);
for i:=1 to 4 do
with a[i].ДатаРождения do 
 if (День=x)and(Месяц=y) then writeln(a[i].ИмяФамилия);
end.