只读懂大概，应该是这样
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[j]) and (t[j]>max) then
begin
max:=t[j];
k:=j;
end;
if k<>0 then
begin
t[k]:=0;
for j:=k+1 to m do
t[j-1]:=t[j];
dec(m);
end;
end;
writeln(m);
end.
