Сформировать список студентов группы

program p12_1;
uses crt;
type
student=record
               fam:string[15];
               name:string[15];
               otch:string[15];
               den:byte;
               mes:byte;
               god:word;
end;
var
a:array[1..15]of student;
m,g,i,n:integer;
begin
n:=15;
write('Введите количество студентов(не более 15):');
readln(n);
for i:=1 to n do
begin
write('Введите фамилию ',i,' студента: ');
readln(a[i].fam);
write('Введите имя ',i,' студента: ');
readln(a[i].name);
write('Введите отчество ',i,' студента: ');
readln(a[i].otch);
write('Введите день рождения: ');
readln(a[i].den);
write('Введите месяц рождения: ');
readln(a[i].mes);
write('Введите год рождения: ');
readln(a[i].god);
end;
write('Введите месяц для поиска: ');
readln(m);
write('Введите год для поиска: ');
readln(g);
writeln('          Найденные записи:');
for i:=1 to n do
if (m=a[i].mes)and(g=a[i].god) then
begin
  write('Имя студента: ');
  writeln(a[i].fam,' ',a[i].name,' ',a[i].otch);
  write('Дата рождения: ');
  writeln(a[i].den,'.',a[i].mes,'.',a[i].god);
  writeln;
end;
readln;
end.