нахождение суммы, Срочно!!! Опции

[Bard]

Срочно ...пожалуйста помогите мне решить задачу...
из заданных 9 чисел нужно найти 7 из них сумма которых равна 100
Спасибо за ранее...

[Bard]

var
   ar : array[1..9] of integer;
   i, j, k, sum : integer;

begin
   sum := 0;
   for i := 1 to 9 do 
   begin
      readln( ar[i] );
      sum := sum + ar[i];
   end;

   for i := 1 to 9 do
      for j := i+1 to 9 do
         if sum -(ar[i] + ar[j]) = 100 then
            for k := 1 to 9 do
               writeln( аr[k] );
end.
 

Вот кое что есть но чего то маленького не хватает...