z, B. diese Zeile
for k:=1 to z do
bringt Dich nicht so wirklich weiter, da Du im Hauptprozedurrumpf z einmalig mit 2 initialisierst. Da kann in den nachfolgenden Abrfagen nie was gefunden werden.
so als erster Anhaltspunkt, Deinen Code durchschaue ich irgendwie nicht so ganz.
Erklähr mal, wie es eigentlich funktionieren sollte.
Gruß
Thomas
Abgesendet trotz rotem Kasten, mkienzlers Frage wird gleich mitbeantwortet