Найти всевозможные комбинации значений переменных точно дающих заданную сумму

[veniside]

комбинаций дохренища, так что показывает прогресс заодно.

{$APPTYPE CONSOLE}

program
  vararr;

uses
  SysUtils;

type
  //
  tMyVarArray = array of array of integer;

const
  //
  c_num_vars = 10;    // 10 variables


// -- main --
var
  a: tMyVarArray;
  t: array of integer;
  H: integer;
  pc, pcprev: integer;
  current, total: int64;

// --  --
procedure combination(level: integer);
var
  c, r: integer;
  sum: integer;
begin
  for c := low(a[level]) to high(a[level]) do begin
    //
    t[level] := a[level][c];
    if (level = high(a)) then begin
      //
      // see if we got something worth mentioning
      sum := 0;
      for r := low(a) to high(a) do
        sum := sum + t[r];
      //
      if (H = sum) then begin
        //
        for r := low(a) to high(a) do
          Write('var[', r, ']=', t[r], ' + ');
        //
        WriteLn(#8#8' = ', H);
      end;
      //
      inc(current);
      pc := (current * 10000) div total;
      if (pc <> pcprev) then begin
        //
        // update progress
        write(pc div 100, '.', pc - 100 * (pc div 100), '% (', current, ' out of ', total, ')      '#13);
        pcprev := pc;
      end;
    end
    else
      combination(level + 1);
  end;
end;


var
  i, v: integer;
  d: integer;
begin
  Randomize();
  //
  SetLength(a, c_num_vars);
  SetLength(t, c_num_vars);
  total := 1;     // total combinations
  current := 0;   // current progress
  pcprev := -1;
  //
  // initialize var array
  for i := low(a) to high(a) do begin
    //
    d := 1 + random(20); // how many values this var may contain
    SetLength(a[i], d);
    total := total * d;
    //
    for v := low(a[i]) to high(a[i]) do
      a[i][v] := 1 + random(50);     // assign next value for a[i]
  end;
  //
  H := 130 + random(260);  // or enter it manually
  WriteLn('H = ', H);
  //
  // find all combinations
  combination(low(a));
end.

[timezero]

uses
SysUtils;

и что за файл это?

[timezero]

приведу пример полностью чтоб можно было понять более точно смысл всей задачи

[timezero]

вот список переменных e,f,g,h....JPG
но их слишком много, чтоб вбивать каждую в прогу вот и попросил чтоб сделали для массива ну допустим 4х4, чтоб я понял как дальше сделать для такого большого количества переменных

[timezero]

Люди кто может помочь, хотябы для матрицы 4х4, а дальше я сам.
вот для такой допустим
а=0,5,12,22
b=1,4,9
c=5,8
d=7,15,24,31
соответственно максимальное значение H(max)=a(max)+b(max)+c(max)+c(max) получается = 70
это тоже надо учесть, то есть получится
if H>70 then writeln('не правильно введено число') , что то типо того