{I. 247.}
{Gema Barnab�s}
{Veszpr�m, Lovassy L�szl� Gimn�zium}
{e-mail: lyuki2@freemail.hu}
{FreePascal 2.2.0}
program i247;
uses crt;
type lepes = record
              orakulso:byte;
              perckulso:byte;
              seckulso:byte;
              orabelso:byte;
              percbelso:byte;
              secbelso:byte;
              rendszam:string;
              irany:string;
             end;
     ido = record
            rendszam:string;
            ora:integer;
            perc:integer;
            sec:integer;
            orabe:byte;
            percbe:byte;
            secbe:byte;
            ki:boolean;
           end;
var adat:array[1..5000] of lepes;
    auto:array[1..5000] of ido;
    x,n,c:integer;




procedure feladat1;
var f:text;

Begin
 writeln('1. feladat');
{adatok beolvas�sa a megfelel� adatszerkezetbe}
 assign(f,'parkolo.be');
 {$I-}
 reset(f);
 {$I+}
{hiba eset�n le�ll�t�s}
 if IOResult<>0 then begin
  writeln('Hiba! Nincs meg a f�jl!');
  halt;
 end;
 x:=1;
{rekordok beolvas�sa}
 while not eof(f) do begin
  read(f,adat[x].orakulso);
  read(f,adat[x].perckulso);
  read(f,adat[x].seckulso);
  read(f,adat[x].orabelso);
  read(f,adat[x].percbelso);
  read(f,adat[x].secbelso);
  readln(f,adat[x].rendszam);
  inc(x);
 end;
{n lesz a bemeneti adat rekordjainak sz�ma}
 n:=x-1;
 close(f);
 writeln('Adatok beolvasva.');
End;


procedure feladat2;

Begin
 writeln('2. feladat');
{A ciklusban a program el�sz�r az �r�t, ut�na a percet, ut�na a m�sodpercet
n�zi meg. Ha valamelyik alapj�n nem d�nthet� el egy�rtelm�en az ir�ny, akkor
n�zi csak meg a k�vetez�t. Elt�roltam az ir�nyokat, mert k�s�bb m�g sz�ks�g
lesz r�.}
 for x:=1 to n do begin
  if adat[x].orabelso>adat[x].orakulso then adat[x].irany:='Be'
   else if adat[x].orabelso<adat[x].orakulso then adat[x].irany:='Ki'
    else if adat[x].percbelso>adat[x].perckulso then adat[x].irany:='Be'
     else if adat[x].percbelso<adat[x].perckulso then adat[x].irany:='Ki'
      else if adat[x].secbelso>adat[x].seckulso then adat[x].irany:='Be'
       else if adat[x].secbelso<adat[x].seckulso then adat[x].irany:='Ki'
        else adat[x].irany:='???';
 end;
{ir�ny ki�r�sa}
 for x:=1 to n do writeln(adat[x].rendszam,' ',adat[x].irany);
End;


procedure feladat3;
var ora:array[0..23] of integer;
    max,maxora:integer;

Begin
 writeln('3. feladat');
{Minden �r�ban az aut�k sz�m�nak be�ll�t�sa 0-ra}
 for x:=0 to 23 do ora[x]:=0;
{Minden �r�ra sz�mol�s}
 for x:=1 to n do
  if adat[x].irany='Be' then inc(ora[adat[x].orakulso]);
{maximum megkeres�se}
 max:=-1;
 for x:=0 to 23 do if ora[x]>max then begin
  max:=ora[x];
  maxora:=x;
 end;
{legforgalmasabb �ra ki�r�sa}
 writeln(maxora);
End;




procedure feladat4;
var y:integer;
    b:boolean;

Begin
 writeln('4.feladat');
 c:=0;
{minden rendsz�m v�gign�z�se}
 for x:=1 to n do begin
  b:=false;
  y:=0;
{ellen�rz�s, hogy m�r szerepelt-e}
  while (b=false) and (y<c) do begin
   inc(y);
   if auto[y].rendszam=adat[x].rendszam then b:=true;
  end;
{ha nem szerepelt, hozz�ad�s}
  if b=false then begin
   inc(c);
   auto[c].rendszam:=adat[x].rendszam;
  end;
 end;
{ki�r�s}
 writeln(c);
End;


procedure feladat5;
var y:integer;
    z:longint;
    maxora,maxperc,maxsec:byte;
    maxrendszam:string;

Begin
writeln('5. feladat');
{aut�k kiv�logat�sa, amik legl�bb egyszer elhagyt�k a parkol�t}
 for x:=1 to c do auto[x].ki:=false;
 for x:=1 to n do
  if adat[x].irany='Ki' then
   for y:=1 to c do
    if auto[y].rendszam=adat[x].rendszam then
     auto[y].ki:=true;
{mindegyik bejegyz�s v�gigmegy}
 for x:=1 to n do begin
{ha az ir�ny BE, akkor a bel�p�s id�pontj�t elt�rolja}
  if adat[x].irany='Be' then
   for y:=1 to c do
    if (auto[y].rendszam=adat[x].rendszam) and (auto[y].ki=true) then begin
     auto[y].orabe:=adat[x].orakulso;
     auto[y].percbe:=adat[x].perckulso;
     auto[y].secbe:=adat[x].seckulso;
    end;
{ha az ir�ny KI, akkor a legutols� bel�p�st�l sz�m�tott id�t hozz�adja a
sz�ml�l�hoz. Ha az aznapi els� bejegyz�s az aut�r�l kil�p�s, akkor �jf�lt�l
sz�molja az id�t.}
  if adat[x].irany='Ki' then
   for y:=1 to c do
    if (auto[y].rendszam=adat[x].rendszam) and (auto[y].ki=true) then begin
     z:=adat[x].orakulso*3600+adat[x].perckulso*60+adat[x].seckulso;
     z:=z-auto[y].orabe*3600-auto[y].percbe*60-auto[y].secbe;
     auto[y].ora:=auto[y].ora+(z div 3600);
     z:=(z mod 3600);
     auto[y].perc:=auto[y].perc+(z div 60);
     z:=(z mod 60);
     auto[y].sec:=auto[y].sec+z;
     auto[y].orabe:=0;
     auto[y].percbe:=0;
     auto[y].secbe:=0;
    end;
 end;
{a nap v�g�ig a parkol�ban marad� aut�kn�l a legutols� kil�p�s 23:59:59-ig
tart� id�szakot hozz�adja a sz�ml�l�hoz}
 for y:=1 to c do begin
  if (auto[y].orabe<>0) or (auto[y].percbe<>0) or (auto[y].secbe<>0) then begin
   z:=23*3600+59*60+59;
   z:=z-auto[y].orabe*3600-auto[y].percbe*60-auto[y].secbe;
   auto[y].ora:=auto[y].ora+(z div 3600);
   z:=(z mod 3600);
   auto[y].perc:=auto[y].perc+(z div 60);
   z:=(z mod 60);
   auto[y].sec:=auto[y].sec+z;
  end;
  auto[y].perc:=auto[y].perc+(auto[y].sec div 60);
  auto[y].sec:=(auto[y].sec mod 60);
  auto[y].ora:=auto[y].ora+(auto[y].perc div 60);
  auto[y].perc:=(auto[y].perc mod 60);
 end;
 maxora:=0;
 maxperc:=0;
 maxsec:=0;
{legt�bb id�t a parkol�ban t�lt� aut� meghat�roz�sa}
 for y:=1 to c do
  if (maxora*3600+maxperc*60+maxsec)<(auto[y].ora*3600+auto[y].perc*60+auto[y].sec) then begin
   maxora:=auto[y].ora;
   maxperc:=auto[y].perc;
   maxsec:=auto[y].sec;
   maxrendszam:=auto[y].rendszam;
  end;
{ki�r�s}
 writeln(maxrendszam,' ',maxora,' �ra  ',maxperc,' perc  ',maxsec,' m�sodperc  ');
End;


procedure feladat6;
var y,ora:integer;
    z:longint;
    ki:text;

Begin
{f�jl l�trehoz�sa}
 writeln('6. feladat');
 assign(ki,'parkolo.ki');
 {$I-}
 rewrite(ki);
 {$I+}
 if IOResult<>0 then begin
  writeln('Hiba a f�jl l�trehoz�s�n�l!!!');
  halt;
 end;
 for y:=1 to c do begin
{a sz�ml�l�s kezdete (8:00:00) be�ll�t�sa}
  auto[y].orabe:=8;
  auto[y].percbe:=0;
  auto[y].secbe:=0;
 end;
 for x:=1 to n do begin
{ha az ir�ny BE �s a bel�p�s legkor�bban 8 �rakor van, akkor a bel�p�s
id�pontj�nak elt�rol�sa}
  if (adat[x].irany='Be') and (adat[x].orakulso>7) then
   for y:=1 to c do
    if auto[y].rendszam=adat[x].rendszam then begin
     auto[y].orabe:=adat[x].orakulso;
     auto[y].percbe:=adat[x].perckulso;
     auto[y].secbe:=adat[x].seckulso;
    end;
{ha az ir�ny ki, �s a kil�p�s legk�s�bb nyolckor van, akkor ki�rja h. nem kell
fizetni. Ha 8 ut�n is 18 �ra el�tt van, akkor a legutols� bel�p�st�l (ha aznap
m�g nem volt bel�p�s, akkor 8 �r�t�l) h�ny �r�t kezdett meg a parkol�ban. Ha
17:59:59 ut�n volt, akkor ki�rja, hogy a legutols� bel�p�st�l 17:59:59-ig h�ny
�r�t kezdett meg a parkol�ban.}
  if adat[x].irany='Ki' then
   if (adat[x].orakulso<8) or
   ((adat[x].orakulso=8) and (adat[x].perckulso=0) and (adat[x].seckulso=0))
   then writeln(ki,adat[x].rendszam,' nem kell fizetni')
   else
    for y:=1 to c do
     if auto[y].rendszam=adat[x].rendszam then begin
      if adat[x].orakulso<18 then begin
       z:=adat[x].orakulso*3600+adat[x].perckulso*60+adat[x].seckulso;
       z:=z-auto[y].orabe*3600-auto[y].percbe*60-auto[y].secbe;
       if (z mod 3600)=0 then ora:=(z div 3600)
       else ora:=(z div 3600)+1;
       writeln(ki,auto[y].rendszam,' ',ora,' ora utan kell fizetni');
      end
      else begin
       if auto[y].orabe>17 then writeln(ki,adat[x].rendszam,' nem kell fizetni')
       else begin
        z:=17*3600+59*60+59;
        z:=z-auto[y].orabe*3600-auto[y].percbe*60-auto[y].secbe;
        if (z mod 3600)=0 then ora:=(z div 3600)
        else ora:=(z div 3600)+1;
        writeln(ki,auto[y].rendszam,' ',ora,' ora utan kell fizetni');
       end;
      end;
     end;
 end;
 close(ki);
 writeln('Adatok ki�rva a kimeneti f�jlba.');
End;





BEGIN
clrscr;
feladat1;
feladat2;
feladat3;
feladat4;
feladat5;
feladat6;
END.