Опишите, используя структуру данных запись, школьный класс

{
Опишите, используя структуру данных запись, 
школьный класс (фамилия и инициалы, дата рождения, месяц рождения, год рождения). 
Составьте программу, выдающую список учеников, рождённых в мае. 
}
 
type
    DateBD = record
        day, month, year: integer;
    end;
    
    DBIK = record
        family, name: string;
        birthday: DateBD;
    end;
    
    ARRAY2 = array[1..100] of DBIK;
 
 
function GenerateStudent(_st: DBIK): DBIK;
var
    str: string;
    i: integer;
begin
    _st.birthday.day := PABCSystem.Random(31) + 1;
    _st.birthday.month := PABCSystem.Random(12) + 1;
    _st.birthday.year := PABCSystem.Random(20) + 1988;
    //192..255
    str := '';
    for i := 1 to 10 do
    begin
        str := str + Chr(PABCSystem.Random(63) + 193)
    end;
    _st.name := str;
    
    str := '';
    for i := 1 to 20 do
    begin
        str := str + Chr(PABCSystem.Random(63) + 193)
    end;
    _st.family := str;
    
    Result := _st;
end;
 
procedure PrintAllDB(_DataBase: ARRAY2);
var
    i: integer;
begin
    for i := 1 to 100 do
        writeln(_DataBase[i].family:20, ' ', _DataBase[i].name:10, ' ', _DataBase[i].birthday.day, '.', _DataBase[i].birthday.month, '.', _DataBase[i].birthday.year);
end;
 
procedure SearchInMonthDB(_DataBase: ARRAY2);
var
    i, j: integer;
begin
    write('WRITE NUMBER OF MONTH: ');
    readln(j);
    for i := 1 to 100 do
        if j = _DataBase[i].birthday.month then
            writeln(_DataBase[i].family:20, ' ', _DataBase[i].name:10, ' ', _DataBase[i].birthday.day, '.', _DataBase[i].birthday.month, '.', _DataBase[i].birthday.year);
end;
 
var
    i: integer;
    DataBase: ARRAY2;
 
begin
    for i := 1 to 100 do
    begin
        DataBase[i] := new DBIK();
        DataBase[i] := GenerateStudent(DataBase[i]);
    end;
    
    PrintAllDB(DataBase);
    writeln();
    writeln();
    SearchInMonthDB(DataBase);
end.