Помогите создать программу на паскаль:

Разработать

программу в соответствии со своим вариантом: создать структуру типа "запись", выполнить

обработку данных.

14. Дан массив записей,

содержащий сведения о лекциях:

- предмет;

- фамилию

и преподавателя;

- шифр

группы;

- номер аудитории;

- день

недели;

- номер

пары.

type

teach = record

firstName, lastName: string;

end;

lecture = record

teacher: teach;

subject: string;

shifr, auditoria, day, para: integer;

constructor create (teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer) ;

begin

teacher. firstName : = teachFirstName;

teacher. lastName : = teachLastName;

subject : = subject_;

shifr : = shifr_; auditoria : = auditoria_; day : = day_; para : = para_;

end;

end;

var

a: array [1 ... 2] of lecture;

begin

for i: byte : = 1 to 2 do

begin

a[i] : = new lecture ('Ололош', 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7) ;

end;

end.