回帖：只读懂大概，应该是这样
var
n,m,i,j,max,k:integer;
a,t:array[1..10000]of integer;
begin
readln(n,m);
for i:=1 to n do readln(a);
for i:=1 to m do readln(t);
for i:=1 to n do
begin
max:=0;
k:=0;
for j:=1 to m do
if (a>=t) and (t>max) then
begin
max:=t;
k:=j;
end;
if k0 then
begin
t:=0;
for j:=k+1 to m do
t:=t;
dec(m);
end;
end;
writeln(m);
end.