Pascal АВС. Записи.

[ctudent111]

Всех с новым годом! Пожалуйста помогите с задачей:
Описать, используя структуру данных запись, расписание(предмет, предподаватель, номер, группы, день недели, часы, аудитория). Составить программу определяющую, у кого из преподавателей есть наложения в расписании.

Первую часть задачи как сделать понимаю, а вот:

Составить программу определяющую, у кого из преподавателей есть наложения в расписании.

непонимаю.

[p51x]

у одного и того же препода, пересекаются часы в одни и теже дни недели

[ctudent111]

program zapisi;
type
dannie=record
p,pr,dn:string[20];
ng,ch,aud:1..600;
end;
var
a:dannie;
begin
write('введите предмет: ');
readln(a.p);
write('введите преподавателя: ');
readln(a.pr);
write('введите номер группы: ');
readln(a.ng);
write('введите день недели: ');
readln(a.dn);
write('введите часы: ');
readln(a.ch);
write('введите аудиторию: ');
readln(a.aud);
writeln(a.p,',',a.pr,'.',a.ng,', ',a.dn,',',a.ch,' часов ',a.aud,' аудитория.');

может кто продолжить?