Определить периоды времени, в течение которых количество посетителей на сайте было максимально

const
  DirIn=1;
type
  TTime = record
    h, m: Integer;
  end;
var
  Cnt, MaxCnt, Dir: Integer;
  t, tb, te: TTime;
begin
  while not EoF do begin
    with t do ReadLn(h,m,Dir);
    if Dir=DirIn then begin
      Inc(Cnt);
      if MaxCnt<=Cnt then begin
        MaxCnt:=Cnt; tb:=t;
      end;
    end else begin
      if MaxCnt=Cnt then te:=t;
      Dec(Cnt);
    end;
  end;
  if MaxCnt=Cnt then te:=t;
  WriteLn('Max ',MaxCnt,' from ',tb.h,':',tb.mm,' to ',te.h,':',te.m);
end.

const
  DirIn=1;
var
  Cnt, MaxCnt, Dir, h, m: Integer;
  f: Text;
begin
  Assign(f,'data.log');
  Reset(f);
  while not EoF(f) do begin
    ReadLn(f,h,m,Dir);
    if Dir=DirIn then begin
      Inc(Cnt);
      if MaxCnt<Cnt then MaxCnt:=Cnt;
    end else Dec(Cnt);
  end;
  WriteLn('Max ',MaxCnt);
  Reset(f);
  while not EoF(f) do begin
    ReadLn(f,h,m,Dir);
    if Dir=DirIn then begin
      Inc(Cnt);
      if MaxCnt=Cnt then Write(' from ',h,':',m);
    end else begin
      if MaxCnt=Cnt then WriteLn(' to ',h,':',m);
      Dec(Cnt);
    end;
  end;
  if MaxCnt=Cnt then WriteLn(' to ',h,':',m);
  Close(f);
end.