Помогите создать программу ** паскаль:Разработать программу в соответствии со своим...

Question

Помогите создать программу на паскаль:
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
14. Дан массив записей,
содержащий сведения о лекциях:


- предмет;


- фамилию
и преподавателя;


- шифр
группы;


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


- день
недели;


- номер
пары.

Answer 1

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.