哪位大牛来指点。。

以下是代码：

Program o0o;

Type arr=array[1..2000]of longint;

Var n,m,i,j,k,temp:longint;

apple,taotao:arr;

Procedure kp(h,t:longint);

var l,r,mid,temp:longint;

begin

l:=h;r:=t;mid:=taotao[(l+r)div 2];

repeat

while(taotao[l]>mid)do inc(l);

while(taotao[r]<mid)do dec(r);

if(l<=r)then

begin

temp:=taotao[l];taotao[l]:=taotao[r];taotao[r]:=temp;

inc(l);dec(r);

end;

until l>r;

if(h<r)then kp(h,r);

if(l<t)then kp(l,t);

end;

Begin

readln(n,m);

for i:=1 to n do readln(apple[i]);

for i:=1 to m do readln(taotao[i]);

kp(1,m);

for i:=1 to n do

begin

temp:=apple[i];

for j:=1 to m do

if(taotao[j]<temp)then

begin

for k:=j to m-1 do

taotao[k]:=taotao[k+1];

dec(m);break;

end;

end;writeln(m);

End.

我快疯了。。刷个水题刷到这种地步- =。