Как наименьшим количеством монет можно выплатить N копеек?Предполагается,что в достаточном количестве имеются монеты достоинством 1,2.3.5.10,15,20,50

program Project1;
 
const
  M = 8;
  ArrCurr : array[1..M] of Integer = (50, 20, 15, 10, 5, 3, 2, 1);
var
  ArrCnt : array[1..M] of Integer;
  i, Sum, Cnt : Integer;
  S : String;
begin
  repeat
    Writeln('Задайте требуемую денежную сумму в копейках:');
    Readln(Sum);
    
    {Решение.}
    Cnt := 0;
    for i := 1 to M do begin
      ArrCnt[i] := Sum div ArrCurr[i];
      Sum := Sum mod ArrCurr[i];
      Inc(Cnt, ArrCnt[i]); {Cnt := Cnt + ArrCnt[i];}
    end;
    
    {Ответ.}
    if Cnt = 0 then
      Writeln('Ни один вид монет не потребовался.')
    else begin
      Writeln('Всего потребовалось монет: ', Cnt);
      Writeln('Сумма набрана таким образом:');
      for i := 1 to M do
        if ArrCnt[i] > 0 then
          Writeln(ArrCnt[i], ' монет достоинством в ', ArrCurr[i], ' коп.');
    end;
    
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

ArrCurr : array[1..M] of Integer = (50, 20, 15, 10, 5, 3, 2, 1);

const
  M = 9;
  ArrCurr : array[1..M] of Integer = (500,200,100,50,20,10,5,2,1);

const
  M = 7;
  ArrCurr : array[1..M] of Integer = (50, 20, 15, 10, 3, 2, 1);