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

Он и не должен работать - в условии этого нет!

Он на отдыхе.... повремените писать.

Мне нужно сделать как в этом примере, помогите пожалуйста

type spisok=record        Fam, Pred:string;        ocenka:2..5;        end;var sp:array[1..5] of spisok; i:integer;begin for i:=1 to 5 do   with sp[i] do   begin      write('fam[',i,']=');      readln(fam);      write('pred[',i,']=');      readln(pred);      write('оценка[',i,']=');      readln(ocenka);   end;writeln('Фамилии отличников');for i:=1 to 5 do   if sp[i].ocenka=5 then writeln(sp[i].fam);readln;end.

Вы опять не поняли написанного выше? На Ваш вопрос ответ дан в строгом соответствии с его формулировкой. Вы просили ОПИСАТЬ переменную. И Вам дали описание. А теперь Вы пытаетесь "выцыганить" уже целую программу. Это совсем другой вопрос, если Вам надо, задавайте новый и там формулируйте все как положено.

Ну например так:Type  tTime = Record            Hour    : Byte;            Minutes : Byte;          end;  tRas = Record           DayOfWeek : Byte;           Npar      : Byte;           TimeBegin,TimeEnd : tTime;           Predmet   : String;           FIO       : String;         end;Var Raspisanie : tRas;