паскаль. оптимальная выборка

[TuuuZ]

задача, поиск оптимальной выборки объектов при ограничениях
программа списана с учебника Н.Вирта, но не пашет, помогите починить ее

program selection (input,output);
const n = 10;
type index = 1 ..n;
     object1 = record v,w: integer end ;
var i: index;
a: array [index] of object1;
limw, totv, maxv: integer;
w1, w2, w3: integer;
s, opts: set of index;
z: array [boolean] of char;

procedure try(i: index; tw,av: integer);
var av1: integer;
begin {попытка включения объекта i}
if tw + a[i].w <= limw then
begin s:= s +[i];
if i < n then try(i+1, tw+a[i].w, av) else
if av > maxv then
begin maxv :=av; opts:=s 
end ;
s := s - [i]
end ;
 av1:= av - a[i].v;
if av1 > maxv then
begin if i < n then try (i+1, tw, av1) else 
begin maxv := av1; opts := s
end
end
end {try} ;
begin totv := 0;
for i :=1 to n do
with a[i] do
begin read(w,v); totv:= totv + v 
end ;
read(w1,w2,w3);
z[true] :='*'; z[false]:= ' ';
write('WEIGHT ');
for i:=1 to n do
write (a[i].w: 4);
writeln;
 write('VALUE ');
for i:= 1 to n do
write (a[i].v:4);
writeln;
repeat limw:=w1; maxv := 0; s:=[ ]; opts:= [ ];
try(1,0,totv); write(limw);
for i:=1 to n do write('  ' ,z[i in opts]);
writeln; w1 := w1 + w2
until w1 > w3
end.

[.Phoenix]

Не понял цели программы, но попробуй процедуру под названием try поменять на другое название, так как try зарезервированное слово в delphi

[TuuuZ]

непашет всеравно

[baster128]

Не понял зачем так сложно в объявлениях

type index = 1 ..n;
object1 = record v,w: integer end ;
var i: index;
a: array [index] of object1;

Нельзя просто
object1 = record v,w: integer end ;
a: array [1..n] of object1;