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

[Дон]

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

[Lapp]

Дон, ты сдался? надоело?.. Еще одна зарубка в ряду активно начинающих и странным образом исчезающих собеседников.. Ведь ни один еще не добрался до конца! Не любят у нас бесплатных школ..
Ладно, чтоб логически закончить тему, выкладываю программу, которую я написал сразу и к которой хотел тебя подвести.
Разбирайся сам, я умываю руки..

const
  M=100;  {максимално возможное число клиентов (размер массива)}
type
  tCust=record
    TIn,TServ:real   {время прихода и необходимое время обслуживания клиента}
  end;
var
  Line:array[1..M]of tCust;
  n,i,k:integer;
  t,t1,t2,TOpen,TClose,tWork:real;

function Max(x,y:real):real;
begin
  if x>y then Max:=x else Max:=y
end;

begin
  TOpen:=9;          {время открытия парикмахерской}
  TClose:=17;        {время закрытия}
  n:=0;              {счетчик клиентов в очереди}
  WriteLn('The Barber''s shop is open ',tOpen:4 :2,', through ',tClose:4 :2);
  WriteLn('Type in time of check-in and service time for each customer,');
  WriteLn('one customer per line, two numbers devided by a space');
  WriteLn('Type Ctrl-Z followed by Enter when done');
  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.

PS
впрочем, у тебя всегда есть шанс реабилитироваться.. ;)