HI und herzlich willkommen in der
DP 
also dein Ansatz ist nicht schlecht. Allerdings will Copy() einen Integer-Parameter und der Compiler beharrt darauf, dass er einen bekommt. Das Ergebnis dieser Zeile kann ich mir nicht ganz vorstellen:
laenge1extended:=Integer(laenge1extended);
Um das ganze leichter zu machen, empfehle ich dir, gleich eine Ganzzahldivision durchzuführen. Das geht mit
DIV und du benötigst auch nicht den Umweg über Real-Typen und Abfragen auf ungerade/gerade Zahlen.
Bernhard