Jak zaprojektować algorytm automatu z resztą i brakami produktów?

Start:

suma:=0; {Suma wrzuconych monet w groszach}
repeat
    if kasa=0 then Wyświetl("Brak reszty");
    if m10 then suma:=suma+10; {Tu powinny być także zwiększane liczniki monet danego nominału i kasa }
    if m20 then suma:=suma+20;
    if m50 then suma:=suma+50;
    if m100 then suma:=suma+100;
    if m200 then suma:=suma+200;
    if m500 then suma:=suma+500;

    Wyświetl(suma); {Wyświetla sumę wrzuconych monet}

    if zwrot then Zwrot(suma); {Wciśnęto przycisk zwrot}

    if ((przycisk_prod1) and (licz_prod1>0)) then
      begin {Wciśnięto przycisk prod1 i jest produkt 1)
        if suma>=cena1 then
          begin {Wrzucono wystarczająco}
             If TestReszty(suma-cena1) then
               begin; {Da się wydać resztę}

                  Wydaj(produkt1) {Wydawanie produktu 1}
                  licz_prod:=licz_prod-1; {zmniejszenie liczby
                                                       sztuk produktu 1}
                  suma:=suma-cena1;    {obliczenie reszty}
                  WydajReszta(suma);    {Wydanie reszty}
                  suma:=0;
               end
             else
               begin
                  Wyświetl('Brak reszty');
                  Oddaj(suma);
               end;
           end;
        end;

      {tu wpisujemy podobne testy dla pozostałych produktów }

until false;