{Folgende Funktion dreht den gesammten String um,}
FUNCTION umdrehen (zkette: STRING): String;
VAR
verstring : String; {veränderter String}
i : INTEGER; {Zählvariable für FOR-Schleife}
BEGIN
verstring:=''; {veränderter String als leer initialisieren}
FOR i:=length (zkette) DOWNTO 1 DO
verstring := verstring + zkette[i];
umdrehen:=verstring
END;