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

[Дон]

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

[Дон]

Вот уж фигушки...
Ничего я не сдался..стыдно просто...
Просто вы задали вопрос на модернизацию,чтобы не вводить всех посетителей сразу.А я..ну не врублюсь...дурак наверно..но научиться хочу правда!!!!

while not EoF do begin           {регистрация клиентов}
    Inc(n);
    with Line[n] do ReadLn(TIn,TServ)
  end;
  WriteLn;
  WriteLn('So far we have ',n,' customers');
  t:=TOpen;      {текущее время начинается с открытия}
  TWork:=0;      {рабочее время}
  k:=0;          {счетчик обслуженных клиентов}
  for i:=1 to n do with Line[i] do begin {вызываем следующего по очереди}
    t1:=Max(t,TIn);                        {начало обслуживания клиента}
    if t1>t then WriteLn('Idle time ',t1-t:4 :2,' hours'); {выводим время простоя, если оно было}
    Write('Customer #',i,' was ');         {выводим номер клиента}
    t2:=t1+TServ;                          {вычисляем время окончания сеанса}
    if t2<=TClose then begin               {если хватает рабочего времени ..}
      t:=t2;                                 {обновляем текущее время концом сеанса}
      TWork:=TWork+TServ;                    {увеличиваем рабочее время}
      Inc(k);                                {увеличиваем счет клиентов}
      WriteLn('served at ',t1:4 :2,' through ',t2:4 :2) {выводим начало и окончание сеанса}
    end
    else WriteLn(' rejected')              {.. если не хватает времени - отказать}
  end;
  WriteLn('For the whole day ',k,' customers were served');
  WriteLn('Work time was ',tWork:4 :2,' hours');
  ReadLn
end.

Вот это для меня вообще темный лес..но я хочу разобраться,что к чему...