program jan2016_drugi;
type    pok = ^element;
        element = record
               br,uk:integer;
               ime,prezime:string[30];
               naziv:string[40];
               next:pok;
               end;
var e:element;
    dat:file of element;
    glava,pom,prethodni:pok;
    max:integer;

begin
     glava:=nil;
     assign(dat,'pozajmice.dat');
     reset(dat);
     while not eof(dat) do begin
        read(dat,e);
        if glava=nil then begin
           new(glava);
           glava^.br:=e.br;
           glava^.ime:=e.ime;
           glava^.prezime:=e.prezime;
           glava^.uk:=1;
           end
           else begin
           pom:=glava;
           prethodni:=glava;
           while pom^.next<>nil do pom:=pom^.next;
           new(pom^.next);
           pom:=pom^.next;
           pom^.br:=e.br;
           while (prethodni^.br<>pom^.br) or (prethodni<>nil) do prethodni:=prethodni^.next;
           if prethodni<>nil then begin
           prethodni^.uk:=prethodni^.uk+1;
           pom:=pom^.next;
           end
           else begin
           pom^.uk:=1;
           pom^.ime:=e.ime;
           pom^.prezime:=e.prezime;
           end;
           pom^.next:=nil;
           end;
    end;
close(dat);

pom:=glava^.next;
max:=glava^.uk;
while pom<>nil do begin
      if pom^.uk>max then max:=pom^.uk;
      pom:=pom^.next;
      end;
pom:=glava;
while pom<>nil do begin
      if pom^.uk=max then writeln(pom^.br,' ',pom^.ime,' ',pom^.prezime,' ',pom^.uk);
      pom:=pom^.next;
      end;
while glava<>nil do begin
      pom:=glava;
      glava:=glava^.next;
      dispose(pom);
      end;

end.