Bei der FOR-schleife wird der Wert bei "end" automatisch um 1 erhöht, dann wird überprüft, ob die schleife zu Ende ist (Spreich index > 3) und erst dann abgebrochen.
Deswegen hast du nach der Schleife index=4.
Mach einfach gleich nach der Schleife
index := index - 1;
So kriegst du deine 3 zu fassen.
