fazer o programa encontrar valor ideal

procedure CalcTroco( Valor: integer; Opcoes: TMoedas; var aResult: TRetornoCalc;
  lAceitaAproximado: boolean = False; lNaoEstourar: boolean = True );
var
  nInit, i, n, nMult: integer;
  nResto: integer;
  ValorCalc: integer;
begin
  TArray.Sort<integer>(Opcoes);

  ValorCalc := Valor;
  SetLength(aResult,Length(Opcoes));
  nInit := Low(aResult);
  for i := High(Opcoes) downto Low(Opcoes) do
  begin
    aResult[nInit,0] := Opcoes[i];
    aResult[nInit,1] := -1;
    Inc(nInit);
  end;

  nInit := Low(aResult);

  while (ValorCalc <> 0) do
  begin

    while (ValorCalc <> 0) and (nInit <= High(aResult)) do
    begin
      ValorCalc := Valor;
      for i := nInit to High(aResult) do
      begin
        if aResult[i,1] = -1 then
          aResult[i,1] := ValorCalc div aResult[i,0];
        ValorCalc := ValorCalc - (aResult[i,1] * aResult[i,0]);
        if ValorCalc = 0 then
          break;
      end;

      // se não conseguiu o cálculo exato
      if ValorCalc <> 0 then
      begin
        if aResult[nInit,1] > 0 then
          aResult[nInit,1] := aResult[nInit,1] - 1;
        for i := nInit+1 to High(aResult) do
          aResult[i,1] := -1;
        if aResult[nInit,1] = 0 then
          Inc(nInit);
      end;

    end;

    // se o valor não foi exato
    if ValorCalc <> 0 then
    begin
      if lAceitaAproximado then // verifico se pode ser valor aproximado
      begin
        if lNaoEstourar then
          Dec(Valor)
        else
          Inc(Valor);

        nInit := Low(aResult);
        for i := Low(aResult) to High(aResult) do
          aResult[i,1] := -1;
      end
      else
        ValorCalc := 0;
    end;

  end;

  // zero as quantidades que estiverem negativas
  for i := Low(aResult) to High(aResult) do
    if aResult[i,1] < 0 then
      aResult[i,1] := 0;

  // redistribui os valores, caso necessário
  for i := High(aResult) downto Low(aResult)+1 do
    if aResult[i,1] > 0 then
      for n := (i-1) downto Low(aResult) do
      begin
        nMult := (aResult[i,1] * aResult[i,0]) div aResult[n,0];
        nResto := (aResult[i,1] * aResult[i,0]) - (nMult * aResult[n,0]);
        if (nMult > 0) and ((nResto = 0) or ((nResto mod aResult[i,0])=0)) then
        begin
          aResult[i,1] := aResult[i,1] - ((nMult * aResult[n,0]) div aResult[i,0]);
          aResult[n,1] := aResult[n,1] + nMult;
        end;
      end;

end;

type
  TRetornoCalc = array of array[0..1] of integer;
  TMoedas = TArray<integer>;

procedure TForm3.Button4Click(Sender: TObject);
var
  i: integer;
  aRetorno: TRetornoCalc;
  aMoedas: TMoedas;
  strMensagem: string;
begin
  SetLength(aMoedas, 3);
  aMoedas[0] := 5;
  aMoedas[1] := 3;
  aMoedas[2] := 10;

  CalcTroco( 7, // valor desejado
             aMoedas, // opções disponíveis
             aRetorno, // retorno calculado
             True, // indica se aceita cálculo aproximado (se não conseguir exato)
             False ); // indica se calculo aproximado pode 'estourar' o valor

  strMensagem := '';
  for i := Low(aRetorno) to High(aRetorno) do
    strMensagem := strMensagem + FloatToStr(aRetorno[i,1])+' un de '+FloatToStr(aRetorno[i,0])+'l' + Chr(10) + Chr(13);
  ShowMessage(strMensagem);
end;