第四个点wa[p党]

样例输入输出都对，为什么第四个点过不了？

给个数据呗

type stype=record
            high,might:longint;
           end;
var a:array[1..5000] of stype;
    temp:stype;
    n,s,sum,i,j,c,h:longint;
begin
 readln(n,s);
 readln(c,h);
 sum:=0;
 for i:=1 to n do
  with a[i] do
   readln(high,might);
 for i:=1 to n do
  for j:=1 to n-i do
   if a[j].might>a[j+1].might then
    begin
     with temp do
      begin
       high:=a[j].high;
       might:=a[j].might;
      end;
     with a[j+1] do
      begin
       a[j].high:=high;
       a[j].might:=might;
       high:=temp.high;
       might:=temp.might;
      end;
    end;
 i:=1;
 while s>=a[i].might do
  begin
   if a[i].high<=c+h then
    begin
     sum:=sum+1;
     s:=s-a[i].might;
    end;
   i:=i+1
  end;
 writeln(sum);
end.