Парикмахерская, программа Опции

[Дон]

Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..

[Дон]

TextColor(2);
Write('Парикмахерская');
TextColor(7);

Вот какая фигня...текст-то он окрасил...
Только вот когда я задаю Uses Crt; в начале программы,CTRL-Z у меня работать перестает..как они связаны?когда убираю Uses Crt; все прекрасно работает...

Hour,Min:integer;
Ziro:string[1];

Здесь все ясно.Задаем часы,минуты, и ноль...

Hour:=Trunc(t);
Min:=Round(Frac(t)*60);
if Min<10 then Ziro:='0' else Ziro:='';
WriteLn('Время ',t :2 :4,' соответствует ', Hour,':',Ziro,Min);

А это куда вставлять?