搜索与回溯 6.装载问题

SSL 2284
题目大意
给出有多少个集装箱（n），轮船载重量（c），和每个集装箱的重量，求最大载重量。
var
n,max,c:longint;
a:array[1..100000]of longint;
procedure init;
var
i:longint;
begin
readln(n,c);
for i:=1 to n do
read(a[i]);
end;

procedure search(k,s:longint);
begin
if s>c then exit;
if s=c then begin write(s);halt; end;
if max