Dwie pompy pracujące naprzemiennie - jaka drabinka?

POMPA:BOOLEAN { określa, która pompa zostanie uruchomiona a która zatrzymana}
PRZYCISK0:BOOLEAN {określa poprzedni stan przycisku}

{Ustawienie stanu początkowego po włączeniu zasilania}

POMPA:=FALSE;
PRZYCISK0=PRZYCISK
POMPA1_STOP
POMPA2_STOP
{Tu można dać opóźnienie na zatrzymanie pomp }

{Przycisk - zmienna logiczna, stan przycisku -> TRUE wciśnięty

repeat
 
  IF PRZYCISK AND NOT PRZYCISK0 THEN 
   BEGIN  {teraz wciśnięty poprzednio zwolniony}

    PRZYCISK0=PRZYCISK ; {zapamiętanie stanu przycisku}

    IF POMPA THEN
      BEGIN
        POMPA1_STOP
            {Tu może być opóźnienie na zatrzymanie się pracującej pompy}
        POMPA2_START
      END

   ELSE

      BEGIN
        POMPA2_STOP
           {Tu może być opóźnienie na zatrzymanie się pracującej pompy}
        POMPA1_START
      END

      POMPA:=NOT POMPA  {przy następnym wciśnięciu pompy zamienią się rolami}

   END;

UNTIL FALSE;  {Pętla nieskończona}