Einfache "Kugeln Ziehen"-Aufgabe mit Schleife

[yga]

Aah, danke. Vielen Dank für die schnelle Hilfe.
Sorry, Random(x) wurde mir anders erklärt, dass er dort eine zufällige Zahl aus der Menge 0 bis x raussucht. Deswegen auch diese umständliche Beschreibung. Ist gemerkt.
until s+w=1; war so gemeint, dass wenn die Anzahl beider Kugeln im Topf 1 ist, die Schleife enden soll. Muss ich mir nochmal genauer anschauen.

Mir war beim Code noch ein Fehler unterlaufen mit der Ausgabe, bei den inttostr(zug) im Ausgabetext, da sollte natürlich noch inttostr(s bzw. w) stehen. Typischer Copy-Paste-Fehler meinerseits.

Danke, ihr beiden, das hat mich einen großen Schritt nach vorn gebracht.