Вывести все возможные комбинации имеющихся монет

program test;
 
var
  c10, c50, c100, c200, c500, c1000: longint;
  S, Sum: longint;
begin
  Write('S= (руб) ');
  readln(S);
  S := S * 100;
  for c1000 := 0 to S div 1000 do
  begin
    Sum := c1000 * 1000;
    for c500 := 0 to ((S - Sum) div 500) do
    begin
      Sum := Sum + c500 * 500;
      for c200 := 0 to (S - Sum) div 200 do
      begin
        Sum := Sum + c200 * 200;
        for c100 := 0 to (S - Sum) div 100 do
        begin
          Sum := Sum + c100 * 100;
          for c50 := 0 to (S - Sum) div 50 do
          begin
            Sum := Sum + c50 * 50;
            c10 := (S - Sum) div 10;
            if Sum + c10 * 10 = S then
              writeln(c1000: 4, '*10p + ', c500: 4, '*5p + ', c200: 4, '*2p + ', c100: 4,
                '*1p + ', c50: 4, '*50коп + ', c10: 4, '*10коп = ', S, 'коп');
            Sum := Sum - c50 * 50;
          end;
          Sum := Sum - c100 * 100;
        end;
        Sum := Sum - c200 * 200;
      end;
      Sum := Sum - c500 * 500;
    end;
    Sum := c1000 * 1000;
  end;
end.