Рекурсия зациклилась

[Андрюха из ПХТТ]

Помогите исправить ошибку в Рекурсии

program rukzak_perebor;
uses crt;
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 begin  writeln(i,' :produkcija'); read(weight[i]);end;
for i:=1 to n do begin writeln('vvedi stoimost',' ',i,' ','produkcii'); read(price[i]);end;
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.

при некоторых данных программа не может выйти из процедуры. например при таком:
6
420
1
2
3
4
5
6
10
20
30
40
50
10

[Utkin]

А мне интересно другое: откуда твоя рекурсия получает maxprice?