program PacalGuru;
type zapisi=record
            company:string;
            kolvo:integer;
            end;
 
var f:text;
    s,vx,isx:string;
    i,n,max:integer;
    m:array[1..50] of zapisi;
 
function count(s:string):integer;
var i,r:integer;
begin
r:=0;
for i:=1 to length(s) do
if s[i]=';' then inc(r); count:=r;
end;
{------------------------------------}
begin
assign(f,'bd.txt'); reset(f);
i:=0;
while not eof(f) do begin
readln(f,s);
readln(f,vx);
readln(f,isx);
inc(i);
m[i].company:=copy(s,1,1);
m[i].kolvo  :=count(vx)+count(isx);
end;
n:=i;
for i:=1 to n do writeln(m[i].company,' - vsego zvonkov= ',m[i].kolvo);
 
max:=1;
for i:=2 to n do
if m[i].kolvo>m[max].kolvo then max:=i;
writeln;writeln;
writeln('Casce drugix zvonili - "',m[i].company,'" vsego ',m[i].kolvo,' zvonkov');
 
close(f);
readln;
end.