Написать алгоритм выплаты заданной суммы S минимальным количеством купюp достоинством M(1), ..., M(N)

const
 N = 13;
var
  Form2: TForm2;
  money: array[1..N] of cardinal;
implementation
 
uses UnitZadanie1;
 
{$R *.dfm}
procedure Uniterms;
begin
//Возможные купюры денег
money[1]:=1;
money[2]:=2;
money[3]:=5;
money[4]:=10;
money[5]:=20;
money[6]:=50;
money[7]:=100;
money[8]:=200;
money[9]:=500;
money[10]:=1000;
money[11]:=2000;
money[12]:=5000;
money[13]:=10000;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm2.CalculateButtonClick(Sender: TObject);
var
      i,k: byte;
    sum: integer;
 chislo: cardinal;
HowMuch: byte;
    ost,ost1: byte;
    st: string;
begin
Memo1.Clear;
 
howmuch:=0;
st:='';
ost:=0;
chislo:=StrToInt(Edit1.Text);
k:=1;
For k:=1 to N-1 do
 begin
  if (chislo>money[k]) and (chislo<money[k+1]) then
   begin
    ost:=chislo-money[k];
    Memo1.Lines.Add(IntToStr(chislo));
    Memo1.Lines.Add('1 - '+IntToSTr(money[k]));
    continue;
   end;
 end;
 
{if chislo > 10000 then
 begin
 ost:=(chislo mod 10000)
  if ost<>0 then
   begin
    HowMuch:=1;
    st:=st+IntToStr(HowMuch)+IntToStr(money[13]);
    ost1:=ost mod 1000;
   //else
     if ost1<>0
 
 end; }
Edit1.Clear;
Edit1.SetFocus;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
 
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  '0'..'9':  ;
  #8:        ;
  #13: CalculateButton.Click;
  else Key:=Chr(0);
  end;
end;
 
end.