为什么只有30分
###Code
var
t,i,j,l,h,r,n,k:longint;
f:array[1..100] of boolean;
s:array[1..100] of string;
st:string; bo:boolean;
begin
readln(t);
for l:=1 to t do
begin
r:=0;
fillchar(f,sizeof(f),false);
readln(n,k);
for i:=1 to n do
readln(s[i]);
for i:=1 to k do
begin
bo:=false;
readln(st);
for j:=1 to n do
if s[j]=st then
f[j]:=true;
for j:=1 to n do
if f[j]=false then
bo:=true;
if not(bo) then
begin
inc(r);
fillchar(f,sizeof(f),false);
end;
end;
writeln('For ',l,'# problem we need ',r);
end;
end.
求大神指点