Das geht auch einfacher pascal