C++ :

#include<iostream>
#include<cstdlib>
using namespace std;
 int main()
{
int n,m,a[2001],b[2001],i,j,temp1,temp2;
cin>>n>>m;
for(i=1;i<=n;i++) cin>>a[i];
for(i=1;i<=m;i++) cin>>b[i];
 for(i=1;i<=n;i++)
 {
 	 temp1=0;
	 for(j=1;j<=m;j++)
	 {
 		if(a[i]>b[j]&&b[j]>0)
 		 {
 			if(b[j]>temp1)
            {
				temp1=b[j];
				temp2=j;
			}
 		 }
	 }
 	 b[temp2]=301;
  }
    temp1=0;
	for(i=1;i<=m;i++)
    {
	  if(b[i]<301)
		temp1++;
    }
    cout<<temp1;
   // system("pause");
}

Pascal :

program Vijos_P1291; 
var 
 i,j,k,s,t,m,n:longint; 
 a,b,c:array[1..2000] of integer; 
begin 
 read(n,m); 
 for i:=1 to n do 
 read(a[i]); 
 for i:=1 to m do 
 read(b[i]); 
 s:=m; 
 for i:=1 to m-1 do 
 for j:=i+1 to m do 
 if b[j]>b[i] then begin t:=b[i]; b[i]:=b[j];b[j]:=t;end; 
 for i:=1 to n do 
 for j:=1 to m do 
 if (a[i]>b[j])and(b[j]<>0) then 
 begin 
 s:=s-1; 
 b[j]:=0; 
 break; 
 end; 
 write(s); 
end.