贪心的武松
【问题描述】
曾经因打虎而闻名的武松在x年后接到了景阳岗动物园的求助信，信上说：最近我们动物园逃跑了几只老虎，请您把它们抓回来，谢谢!!
武松接到信之后立刻上了山。正当他到半山腰时，突然跳出n只猛虎来。每只老虎都有一块虎牌，牌上写的是每一只虎最大拥有的体力，当武松与老虎pk时，若老虎的体力先用完，那么老虎over,否则武松over,求武松在over之前最多能干掉几只老虎？
（注：老虎是一只只上的）

【输入】
第一行两个数字 n（老虎的只数）,m（武松的体力）。第二行n个数字,分别表示每只老虎的体力（每只虎的体力按从小到大排列）。

【输出】
一行，最多能干掉的老虎数。

【样例输入】
3 6
1 3 9
【样例输出】
2

请完善以下程序

program test05；
var
  n,m,i,num:integer;
  a:array[1..100] of integer;

begin
  fillchar(a,sizeof(a),0);
  read(n,m);
  for i:=1 to n do
    read( a[i] );
  num:=0; i:=1;
  while (m>0) and (  i<=n  ) do
   begin
     m:=m-a[i];
     if m>=0 then begin
       num:=num+1;
          inc(i)    ;
     end;
   end;
  write(  num  );
 end.