想要知道被选中的编号，但感觉一维数组输不出来，下面Pascal代码：

var  
  n,m,i,j:longint;  
  r,r1:real;
  a,b:array[1..100]of longint;  
  x:array[0..1000]of longint;   
function f(a,b:longint):longint;
  begin  
  if a>b then exit(a)
            else exit(b);
   end;
begin
  readln(r);
  n:=trunc(r);
  readln(m);
  for i:=1 to m do 
    begin 
	readln(r,r1);
	a[i]:=trunc(r);
	b[i]:=trunc(r1);
	end;
  for i:=1 to m do
    for j:=n downto 1 do
      if not(j-a[i]<0) then 
        x[j]:=f(x[j],x[j-a[i]]+b[i]);
  writeln(x[n]);
end.