Ups, deine Ausgabe Funktion habe ich mir ja gar nicht so richtig angeschaut.
Code:
PrintInt(rled)
Sollte man hier verwenden, nicht SerWrite. Dann sollte es auch endlich funktionieren.