Расставить между членами последовательности знаки +, -, *, /, так, чтобы получилось заданное число

// пример расставить действия чтобы получилось 14
// 2 ? 7 ? 2 ? 3 = 14
const c:array[0..3]of char=('+','-','*','/');
var 
  a: array[0..2] of integer;//действия
  b: array[0..2] of integer=(7,2,3);// цифры
  f: integer=2; // начальное значение
  h: integer=14; // конечное значение
  x,y:  integer;
  s:string;
 
begin
  for var j:=0 to round(4**(1+high(a)))-1 do
    begin
      for var k:=0 to high(a) do // брутально заполняю действия
        a[k]:=(j div round(4**k)) mod 4;
      x:=f;// начальное значение
      s:=inttostr(x);
      for var i:=0 to high(b) do
        begin          
          y:=b[i];
          case a[i]of
            0: begin x:=x+y; s:=s+c[a[i]]+y end;
            1: begin x:=x-y; s:=s+c[a[i]]+y end;
            2: begin x:=x*y; s:=s+c[a[i]]+y end;
            3: begin x:=round(x/y); s:=s+c[a[i]]+y end;
          end;    
        end;
    if x=h then writeln('good ',s,'=',h);// найденное значение
  end; 
end.

// пример расставить действия чтобы получилось 119
// 1 ? 2 ? 3 ? 4 = 119
const c: array [0..4] of string=('+','-','*','/','');
var 
  a: array[0..3] of integer;//действия
  b: array[0..3] of integer=(1,2,3,4);// числа
  h: integer = 119; // конечное значение
  x,y,v: integer;
  s: string;
  
  procedure f;//  суммирование
  begin
    case v of
      0: begin x:=x+y end;
      1: begin x:=x-y end;
      2: begin x:=x*y end;
      3: begin x:=x div y end;
    end;  
  end;
  
begin
  for var j:=0 to round((high(c)+1)**high(a))-1 do
    begin
      for var k:=0 to high(a)-1 do // брутально заполняю действия
        a[k+1]:=(j div round((high(c)+1)**k)) mod (high(c)+1);       
      a[0]:=0; 
      x:=0;// начальное значение      
      y:=0;// слагаемое
      v:=0;// действие
      s:=inttostr(x);
      for var i:=0 to high(b) do      
          if a[i]=4 then 
            begin
              y:=y*10+b[i]
            end
            else
            begin  
              f;//  суммирование
              s:=s+c[v]+y;
              v:=a[i];
              y:=b[i];            
            end; 
    f;//  суммирование          
    s:=copy(s+c[v]+y,5,length(s+c[v]+y)-4);        
    if x=h then writeln(' -----------  ',s,'=',h);// найденное значение
  end;