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

Если предположить, что:
-- Х - это не номер пары, а количество пар
-- первая пара начинается в 8:00
-- продолжительность пары 1 час 20 минут
-- перерыв между парами 10 минут
То получается:

const StartTime = 480; FreeTime = 10; ParaLength = 80; DayLength = 1440;
function toTime(V : Word) : String; var H, M : String; begin while V > DayLength do Dec(V, DayLength); Str(V div 60, H); Str(V mod 60, M); if Length(M) = 1 then M := '0' + M; toTime := H + ':' + M; end;
var X, N : Byte; T : Word;
begin
Write('Количество пар = '); ReadLn(X); T := StartTime; for N := 1 to X do
begin WriteLn(N, ' - ', toTime(T), ' - ', toTime(T + ParaLength) ); T := T + ParaLength + FreeTime; end;
end.

Всё включено!
Если даже у вас 15 пар ;-)

Количество пар = 15
1 - 8:00 - 9:20
2 - 9:30 - 10:50
3 - 11:00 - 12:20
4 - 12:30 - 13:50
5 - 14:00 - 15:20
6 - 15:30 - 16:50
7 - 17:00 - 18:20
8 - 18:30 - 19:50
9 - 20:00 - 21:20
10 - 21:30 - 22:50
11 - 23:00 - 0:20
12 - 0:30 - 1:50
13 - 2:00 - 3:20
14 - 3:30 - 4:50
15 - 5:00 - 6:20

рид (Х)
свитч Х
1: врайт (8.00 – 9.20)
2: врайт (9.30 – 10. 50)
...

program _2;
var a:integer;
begin
readln(a);
case a of
1:writeln('8.00 – 9.20');
2:writeln('9.30 – 10. 50');
3:writeln('не знаю');
end;
end.

А у вас какое расписание?