ЗАДАЧА О РАНЦЕ (нужно дополнить код)

У меня не выходит дополнить код. Код выполняет функцию:
Задаешь грузоподъемность рюкзака, загружаешь предметы (n-ое количество) определенного веса, и программа рассчитывает, какими предметами нужно укомплектовать рюкзак так, чтобы как можно больше и как можно укомплектованнее поместить предметы. Например: Рюкзак-Вес= 20, загружаем: _____1й предмет=5,__2й предмет= 7,__3й предмет= 3,__4й= 4,__5й=10,__6й=1. Вывод, в рюкзак нужно положить предметы весом: 5, 7, 3, 4, 1
МНЕ НУЖНО, чтобы в программе еще учитывалась стоимость каждого предмета, чтобы как можно максимальнее была общая стоимость предметов.
Вот код. :
uses crt;
var
a,b:array[1..100] of integer;
n:byte;
sum:integer;
f:boolean;
i,j,k,h,s,m,z:integer;
begin
{Vvodim vse podryat}
clrscr;
Writeln('Vvedite kolichestvo Predmetov