Блок-схема!!!

[Multiman]

Доброго времени суток всем!
Имеется программа, которая разменивает некоторую сумму денег наименьшим возможным количеством купюр. Нужно составить блок-схему.

Код:

const
  Kupiury : array[1..8] of integer =
    (5000, 1000, 500, 100, 50, 10, 5, 1);
var
  X : integer;
  i, Ni : integer;
  s : string;
begin
  X := StrToInt(Edit1.Text);
  s := '';

  i := 1;
  while X>0 do begin
    Ni := X div Kupiury[i];
    if Ni>0 then
      s := s + ' '+IntToStr(Ni)+'*'+
                   IntToStr(Kupiury[i])+' ';
    X := X - Ni * Kupiury[i];
    i := i + 1;
 end;
 Edit2.Text := s;
end;

Я в блок-схемах не соображаю поэтому прошу вашей помощи. Помогите пожалуйста составить правильную блок-схему алгоритма.

Заранее всем благодарен!

[Stilet]

http://yandex.ua/yandsearch?clid=489...554&ncrnd=8789
Спасет отца русской демократии

[Alter]

FCEditor