program d; var r,s,c,i, max:integer; zerou : array[65..95] of integer; jmena : array[65..95] of string[60]; jmeno : string[60]; zn : char; zb, j : byte; stul : string[255]; begin readln(r,s,c); while(r>0)and(s>0)and(c>0) do begin for i := 65 to 95 do begin jmena[i] := ''; zerou[i] := 0; end; for i:= 1 to c do begin readln(jmeno); zn := jmeno[1]; zb := ord(zn); jmena[zb] := jmeno; end; for i := 1 to r do begin readln(stul); for j:=1 to s do begin zb := ord(stul[j]); if zb>=65 then inc(zerou[zb]); end; end; j := 0; max := 0; for i := 65 to 90 do begin if zerou[i]>max then begin max := zerou[i]; j := i; end; end; writeln('Nejzravejsi cervotoc je '+jmena[j]+'.'); readln(r,s,c); end; end.