Prozedur in Funktion umgewandelt