Задача о рюкзаке (перебор вариантов)

Сonst MaxN=????;
 
 
Var n,w:integer;{количество предметов, максимальный вес}
 
Weight,Price:array[1..MaxN] of integer;{вес, стоимость предметов}
 
Best,Now:array[1..MaxN] of integer;{наилучшее, текущее решения}
 
MaxPrice:LongInt;{наибольшая стоимость}
 
Решение, его основная часть - процедура перебора:
 
Procedure Rec(k,w:integer;st:LongInt);
 
{k - порядковый номер группы предметов, w - вес, который следует набрать из оставшихся предметов, st - стоимость текущего решения}
 
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
  var W := 20; //кг
  var kolvo := 30; //количество типов предметов
  var Ves := ArrRandomReal(kolvo, 0.5, 8); //Задаем вес каждого типа предмета
  var Cena := ArrRandom(kolvo, 1, 20); // Задаем стоимость каждого типа предмета
  var n := 0; // количество предметов в рюкзаке
  var vesTek := 0.0; // суммарный вес предметов в рюкзаке
  var CenaTek := 0.0; // суммарная стоимость предметов в рюкзаке
  var Sebest := new List<array of integer>; //себестоимость каждого типа предмета
  for var f := 0 to kolvo - 1 do 
    Sebest.Add(Arr(f, trunc(100000 * Cena[f] / Ves[f])));  
  //Список предметов упорядоченный по себестоимости (рентабельности)
  var Q := Sebest.OrderByDescending(t -> t[1]).Select(t -> t[0]).toArray;
  var j := 0; //индекс
  repeat
    while Ves[Q[j]] + VesTek <= W do //наполняем рюкзак от сначала самые дорогие и т.д.
    begin
      VesTek += Ves[Q[j]];
      CenaTek += Cena[Q[j]];
      inc(n);
      Writeln('+ предмет ', Q[j], '   вес: ', Ves[Q[j]]:0:3, '   Цена: ', Cena[Q[j]], '  Вес общий: ', VesTek:0:3,
                 '  Сумма общая: ', CenaTek);
    end;
    inc(j);
  until j = kolvo;
  Println('Итого самое дорогое', n, 'предметов на сумму', CenaTek);
end.