ДИНАМИЧЕСКИЕ массивы

[Nvd]

Задан одномерный массив целых чисел.
Найти наименьшее натуральное число, не представимое суммой никаких элементов массива.
Сумма может состоять и из одного слагаемого, но каждый элемент массива может входить в нее не более одного раза.(в Delphi)

program Project2;
Не знаю что писать в цикле и в основном теле проги?
{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b:array of integer;
  k,i,n,c,ch:integer;
  procedure vivod(b:array of integer);
  var c:integer;
  begin
  for c:=low(b) to high(b) do
  write(b[c]:4);
  writeln;
  end;
begin
  randomize;
  write('N= ');
  readln(n);
  setlength(a,n);
  for i:=low(a) to high(a)  do
  a[i]:=random(100);
  for i:=low(a) to high(a) do
  for k:=low(a) to high(a)do
  for ch:=a[1] to a[i] do
  begin
  if ch<>a[i] then
  begin
  c:=c+1;
  setlength(b,c);
  b[c-1]:=ch;
  end
  else write('');
  end;
  vivod(b);

  readln;


end.

[Летучий_СкилетиК]

чтобы просмотреть в массиве все возможные суммы чисел от 1 до n по (k) нужно рассмотреть алгоритм,все подмножества из множества..
http://*************/readarticle.php?article_id=2199