Tak na první pohled tam vidím dva problémy:
1) Ten cyklus se prodávádí, dokud stavvazeni JE roven 'ST'. Ale ty ho chceš provádět dokud NENÍ, ne? Možná bych zvážil repeat..until místo while.
2) Ten cyklus je řízený proměnnou stavvazeni, která se v tom ale cyklu nemění. Takže jakmile se tam program jednou dostane, už tam i navždy zůstane.