Определить перменную расписания,содержащую:день недели,количество пар в этот день,время начала и конца пары,название предмета,фамилию преподавателя

I: integer; // целое число.

TYPE
 
имя_типа_переменной = RECORD
 
поле_1:  тип_данных1 ;
поле_2:  тип_данных2 ;
...
поле_N:  тип_данныхN ;
 
END;

var
 
имя_переменной: имя_типа_переменной;

var
 
a: array of имя_типа_переменной;
 
F: file of имя_типа_переменной;

имя_типа_переменной.поле_N...

A[i].поле_N...

// создаем тип расписания.
 
TYPE
 
Raspisanie = RECORD
 
denNedel: string[11];
// для дня недели. Почему 11 символов? Ну просто слово ВОСКРЕСЕНИЕ - 
// самое длинное из возможных
 
kolvopar: integer; // для количества пар в этот день.
 
vremia: string[13];
 // для времени начала и конца пары. С этим поподробней. Я считал, что время вводится 
// следующим образом -     14:02 - 21:53    - это тринадцать символов :))
 
Predmet,                 // для названия предмета 
Prepod: shortstring; // для имени учителя - строка длиной 255 символов. На всякий случай :)
 
END; // закончили создание типа.
 
// теперь объявляем его в var.
VAR
 
Rasp: array of raspisanie;
 // заметьте, я делаю массив. Для меня это просто удобно в данной ситуации. 
N, i: integer; 
// для количества дней, которые хочет заполнить пользователь и для пересчета элементов массива.
predmetPoisk: shortstring; // для будущего поиска предмета.
 
BEGIN
 
writeln ('N = '); readln(N); // ввели количество дней.
 
setlength(Rasp, N); // установили длину массива.
 
for i:= 1 to N do // от первого до последнего элемента массива делай...
begin
 
writeln('Vvedite den nedeli '); readln(a[i].denNedel); // ввели день недели.
writeln('Vvedite kolichestvo par '); readln(a[i].kolvopar); // ввели количество пар.
writeln('Vvedite vremia nachala i konsa pari '); readln(a[i].vremia); // ввели время начала и конца пары.
writeln('Vvedite nazvanie predmeta '); readln(a[i].predmet); // ввели название предмета.
writeln('Vvedite imia prepodavatelia '); readln(a[i].prepod); // ввели имя учителя.
writeln('________________'); // разделительная линия, а то и так неудобно смотреть будет.
writeln(''); // разделительная строка.
 
end;
 
// ввели все дни, которые захотели.
// Теперь, пусть пользователь введет название предмета, а мы уж его выведем потом.
 
Writeln(''); // пропустили строчку - для наглядности.
 
writeln('Kakoi predmet iskat ?');
readln(predmetPoisk); // ввели название предмета для поиска.
writeln(''); // опять разделили. 
 
// и поехали искать! :))
 
for i:= 1 to N do
if a[i].predmet = predmetPoisk then
begin
writeln(a[i].denNedel);
writeln(a[i].kolvopar);
writeln(a[i].vremia);
writeln(a[i].prepod);
 
// вывели всю информацию, кроме предмета. Я посчитал, то это ненужно, раз мы его искали, то
// название предмета уж точно нам известно.
 
writeln('__________________'); // разделительная линия.
writeln(''); // разделительная строка.
 
end; 
 
readln; 
 
END.