装载问题

• var i,j,k,l,n,c:longint;
      f:array[0..25,0..10000]of longint;
     w:array[1..20]of integer;
  function max(a,b:longint):longint;
  begin
    if(a>b) then exit(a);
    exit(b);
  end;
  begin
    readln(n,c);
    for i:=1 to n do read(w[i]);
    fillchar(f,sizeof(f),0);
    for i:=1 to n do 
    begin
     for j:=1 to c do 
     begin
      if(j>=w[i])then  f[i,j]:=max(f[i-1,j-w[i]]+w[i],f[i-1,j])
      else f[i,j]:=f[i-1,j];
     end;
    end;
    writeln(f[n,c]);
  end.//超时