program d; var ch: char; c,s,r :integer; count, i, j, k, max_pos, max : integer; mena: array [1..27] of string[70]; cervy: array [1..27] of word; BEGIN repeat read(r,s); readln(c); if not((r=0)and(s=0)and(c=0)) then begin for i:= 1 to 26 do begin mena[i]:=' '; cervy[i]:=0; end; for i:= 1 to C do readln(mena[i]); for i:= 1 to R do begin for j:= 1 to S do begin read(ch); for k:= 1 to C do if (ch=mena[k][1]) then cervy[k]:= cervy[k]+1; end; readln; end; max_pos:=0; max:=0; for i:= 1 to C do begin if (cervy[i] > max) then begin max:=cervy[i]; max_pos:= i; end; end; writeln('Nejzravejsi cervotoc je ',mena[max_pos],'.'); end; until (r=0)and (s=0) and (c=0); END.