按题目模拟即可。
代码:
var
a,s:array[0..10000] of string;
b:array[0..10000] of boolean;
n,m,i,j,max:longint;
begin
readln(n);
for i:=1 to n do
readln(s[i]);
readln(m);
for i:=1 to m do
readln(a[i]);
for i:=1 to m do
begin
for j:=1 to n do
if (a[i]=s[j])and(not b[j]) then
begin
inc(max);
b[j]:=true;
break;
end;
if max>=(n+1) div 2 then
begin
writeln(i);
halt;
end;
end;
end.