joco

program sutra_malo;
type lista=record
     prviBr,drugiBr:string[30];
     trajanje:integer;
     vreme:record
          sati:0..23;
          minuti:0..59;
          sekunde:0..59;
          end;
     end;
  var ulaznaDat,izlaznaDat:text;
        rec1,rec2:string;
  procedure ucitaj(var str1,str2:string);
  begin
       readln(str1);
       readln(str2);
  end;

procedure obrada(var word1,word2:string; var file1,file2:text);
var
      n,trajanje,dodatak,max:integer;
      c:char;
      s1,s2,s3,d,maxs2,maxs:string;
      p:boolean;
begin
  assign(file1,word1);
  reset(file1);
  assign(file2,word2);
  rewrite(file2);
  p:=true;
      d:='';
      trajanje:=0;
  while not eof(file1) do
  begin
    n:=0;
    s1:='';
    s2:='';
    s3:='';

    while not eoln(file1) do
    begin
      while n<3 do
      begin
        read(file1,c);
        if c=' ' then n:=n+1 else
          case n of
          0: s1:=s1+c;
          1: s2:=s2+c;
          2: s3:=s3+c;
          end;
       end;
      read(file1,dodatak);
    end;
    if p then
    begin
         d:=s1;
         p:=false;
         max:=dodatak;
         maxs:=s3;
         maxs2:=s2;
    end;
    if s1=d then
    begin
         if max<dodatak then
         begin
           max:=dodatak;
           maxs:=s3;
           maxs2:=s2;
         end;
      trajanje:=trajanje+dodatak;

    end
    else
      begin
           writeln(file2,d,' ',trajanje,' ',maxs2,' ',maxs);
           d:=s1;
           trajanje:=dodatak;
           max:=dodatak;
           maxs:=s3;
           maxs2:=s2;
      end;
      readln(file1);


  end;
  writeln(file2,s1,' ',trajanje,' ',maxs2,' ',maxs);
  close(file1);
  close(file2);
  writeln('sve odradjeno!');
end;
begin
  writeln('unesite datoteke sa kojima zelite raditi: ');
  ucitaj(rec1,rec2);
  while (rec1<>'') and (rec2<>'') do
  begin
  obrada(rec1,rec2,ulaznaDat,izlaznaDat);
  WRITELN('UNESITE  PONOVO ALO GLADAN SAM: ');
  ucitaj(rec1,rec2);
  end;
end.