program d; var r, s, c: integer; var jmena: array[char] of string; jmeno: string; pocty: array[char] of integer; i: char; a, b: integer; radek: string; maxim: integer; maxc: char; begin readln(r, s, c); while (r<>0) and (s<>0) and (c<>0) do begin for i:='A' to 'Z' do pocty[i]:=0; for a:=1 to c do begin readln(jmeno); jmena[jmeno[1]]:=jmeno; maxc:=jmeno[1]; end; for a:=1 to r do begin readln(radek); for b:=1 to s do if radek[b]<>'*' then Inc(pocty[radek[b]], 1); end; maxim:=0; for i:='A' to 'Z' do if pocty[i]>maxim then begin maxim:=pocty[i]; maxc:=i; end; writeln('Nejzravejsi cervotoc je '+jmena[maxc]+'.'); readln(r, s, c); end; end.