{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;