Определить, сколькими способами можно разменять купюру

uses crt;
type
mas = array [1..70] of integer;{Sozdanie massiva kupur men'shej nominal'nosti}
var
iskupura: integer;
i, n, k, min, itog, otv:integer;
otvet2,otvet1: longint;
a:mas;
 
 Function fuct(k:integer):longint; {Funkciya dlya vichisleniya faktoriala}
var
i:integer;
f:longint;
 begin
  f := 1;
  for i:= 2 to k do
   f:= f * i;
   fuct := f;
 end;
 
begin
repeat
 clrscr;
 textcolor(7);
 textbackground(0);
  writeln('Programma dlya vichisleniya kolichestva sposobov razmena kupuri');
  writeln;
  writeln('Vvedite raskladivaemuu kupuru: ');
  readln(iskupura);
  Writeln('Vvedite kolichestvo kopur men''shej nominal''nosti: ');
  readln(n);
  writeln ('Vvedite kupuri menishej nominal''nosti, posle kazhdoj nazhimaya ENTER ');
   for i := 1 to n do
    begin
     readln(k);
     a[i] := k;{Zanesenie dannih v massiv}
    end;
  min := a[1]; {Vvichislenie minimal'nogo elementa massiva}
  for i := 1 to n do
  if a[i] < min then
   begin
    min := a[i];
   end;
  Itog := iskupura -  (min * n);
  Otvet1 := (fuct(n + itog - 1));
  Otvet2 := ((fuct(n-1)*fuct(itog)));
  otv := (otvet1 div otvet2) ;{ Nahozhdenie kolichestva sposobov predstavleniya}
  writeln('Kolichestvo sposobov predstavleniya: ',otv);
 
 writeln ('Dlya vihoda iz programmi nazhmite,pozhalujsta, "Escape"');
    writeln ('Dlya prodolzheniya raboti s programmoj - lubuyu klavishu');
 until #27 =  Readkey;
end.