var
	n,s,i,t,min,tem,q:longint;
	boo:boolean;
	a,b:array[0..1000010] of longint;

begin
	readln(n,s);
	while n<>0 do
	begin
		boo:=true;
		readln(s);
		for i:=1 to n do
		readln(a[i],b[i]);
		t:=n;
		while (t>0)and(boo=true) do
		begin
			min:=1000000000;
			for i:=1 to t do
			if b[i]<min then
			begin
				min:=b[i];
				q:=i;
			end;
			tem:=b[q];
			b[q]:=b[t-1];
			b[t-1]:=tem;
			tem:=a[q];
			a[q]:=a[t-1];
			a[t-1]:=tem;
			if (s<b[t-1]) then begin writeln('NO'); boo:=false; end
			else s:=s+a[t-1];
			t:=t-1;
		end;
		if t=0 then writeln('YES');
		read(n);
	end;
end.