Задача о рюкзаке методом ДП Опции

[BCW]

Привет всем. Совсем потерял и покой и сон.
Никак не могу сделать эту задачу. Задача называется -задача о рюкзаке на паскале методом динамического программирования. Смысл: Есть рюкзак заданного размера например 70, есть 4 предмета которые имеют свой вес и стоимость. Необходимо забить рюкзак предметами чтобы общий вес их вмещался в рюкзак а стоимость при этом была наибольшей. т.е как бы из кучи разных вариантов выбрать оптимальный. но тем не мение выводит на экран все наборы т.е ход мыслей программы нужно отобразить. нашел несколько кодов но не один толком не работает. Вот к примеру такой:

Код

program rukzak_perebor;
const maxn=20;{?}
var n,w:integer;
weight,price:array[1..maxn]of integer;
best,now:array[1..maxn]of integer;
maxprice:longint;
procedure init;
var i:integer;
begin
read(n);
read(w);
for i:=1 to n do read(weight[i]);
for i:=1 to n do read(price[i]);
end;
procedure rec(k,w:integer;st:longint);
var i:integer;
begin
if (k>n) and (st>maxprice) then
begin
best:=now;
maxprice:=st;
end else
if k<=n then
for i:=0 to w div weight[k] do
begin
now[k]:=i;
rec(k+1,w-i*weight[k],st+i*price[k]);
end;
end;
begin
init;
rec(1,w,0);
writeln(' ',maxprice);
end.

Не работает совсем. В чем дело понять не могу. чуствую дело скоро дойдет до глюкозы
Помогите пожалуйста.
.

[Krjuger]

LapДа работает та программа,может быть не совсем дружелюбно,но работает.Мда, а с разделами я действительно попутал.

[BCW]

LapДа работает та программа,может быть не совсем дружелюбно,но работает.Мда, а с разделами я действительно попутал.

Да Lapp работает по крайней мере та что я скопировал из FAQ однозначно работает.
Спасибо за ссылки почитал.
Если я правильно понял необходимо завести массив в котором нужно сохранять результаты вызова функции. Так? Но какого размера он должен быть? Вариантов же может быть ого го го как!
Т.е получается рекурсию нужно убрать? А на что заменить?
..Чем дальше в лем тем толще партизаны!