program cervotoci; var jmena:array[1..26] of string[61]; radek:string[255]; vysl:array["A".."Z"] of integer; a,b,c:integer; i,j:integer; {prom.pro vyber maxima} pom:array[1..26] of integer; max:integer; in_array:integer; pomi : char; begin readln(a,b,c); while not((a=0) and (b=0) and (c=0)) do begin for pomi:="A" to "Z" do vysl[pomi]:=0; for i:=1 to c do readln(jmena[i]); for i:=1 to a do begin readln(radek); for j:=1 to b do if (radek[j]<>'*') then inc(vysl[radek[j]]); end; {zjisteni maxima} in_array:=0;max:=0; for i:=1 to c do begin if vysl[jmena[i][1]]>max then begin max:=vysl[jmena[i][1]]; in_array:=1; pom[in_array]:=i; end else if vysl[jmena[i][1]]=max then begin in_array:=in_array+1; pom[in_array]:=i; end; end; for i:=1 to in_array do begin writeln("Nejzravejsi cervotoc je ",jmena[pom[i]],"."); end; writeln; {nacteni dalsiho} readln(a,b,c); end; end.