装箱问题

题目描述
有一个箱子容量为V（正整数，0＜＝V＜＝20000），同时有n个物品（0＜n＜＝30，每个物品有一个体积（正整数）。
要求n个物品中，任取若干个装入箱内，使箱子的剩余空间为最小。

输入输出格式
输入格式：
一个整数，表示箱子容量
一个整数，表示有n个物品
接下来n行，分别表示这n 个物品的各自体积
输出格式：
一个整数，表示箱子剩余空间。

输入输出样例
输入样例#1：
24
6
8
3
12
7
9
7
输出样例#1：
0

---

程序如下：

var  n,m,max,k,l:longint;  a:array[1..30] of longint;procedure init;var i:longint;begin  readln(n);  readln(m);  for i:=1 to m do    readln(a[i]);end;procedure main(k,l:longint);begin  if (k>m)or(l>=n) then  begin    if (l<=n)and(max>n-l) then max:=n-l;    exit;  end;  main(k+1,l+a[k]);  main(k+1,l);end;begin  init;  max:=maxlongint;  main(1,0);  write(max);end.