Помогите пожалуйста,как эту задачу написать в Паскале?

Перевести значение времени ЧАСЫ: МИНУТЫ в значение Минут = ЧАСЫ*60 + МИНУТЫ
Прибавлять к Минутам:
1) продолжительность уроков
2) выводить результат с обратным преобразованием в ЧАСЫ: МИНУТЫ
4) если прошёл ещё не 7 урок, то (5), иначе (8)
5) продолжительность перемены (с учётом её номера и продолжительности)
6) выводить результат с обратным преобразованием в ЧАСЫ: МИНУТЫ
7) возврат к (1)
8) конец программы

Что значит как ?
Буковками да цифирьками, ка же еще ?)
Или мамзель изволит чтобы кто-то за нее нахалявку написал программу ?

Как за основу, можно взять представление всего времени в минутах
То есть начало учебного дня в 8 утра (640 минут)
И потом прибавлять по паре или по перемене)
Так будет удобнее) Для вывода юзать writeln(t div 60,':',t mod 60);

Uses Crt;
Var
i, time, time1, time2, ndh, ndm, pp, pk, pd, np: Integer;
Begin
ClrScr;
Writeln('***Введите начало дня***');
Write('Часы= '); Readln(ndh);
Write('Минуты= '); Readln(ndm);
Write('Продолжительность пары= '); Readln(pp);
Write('Продолжительность короткого перерыва= '); Readln(pk);
Write('Продолжительность длинного перерыва= '); Readln(pd);
Write('После какой пары будет длинный перерыв= '); Readln(np);
ClrScr;
Writeln('***Расписание***');
Writeln;
time:=ndh*60+ndm;
for i:=1 to 6 do
begin
time1:=time div 60;
time2:=time mod 60;

Write(i, ' Пара, начало ', time1, ':', time2);
time:=time+pp;
time1:=time div 60;
time2:=time mod 60;
Writeln(' - ', time1, ':', time2);

Write(' Перерыв ', time1, ':', time2);
if i=np then time:=time+pd else time:=time+pk;
time1:=time div 60;
time2:=time mod 60;
Writeln(' - ', time1, ':', time2);
end;

Readln;
End.

С тебя +