Ansonsten würde mir noch folgende reine Pascal-Alternative einfallen:
Mal abgesehen, daß die sich wegen eines zusätzlichen
begin
nicht compilieren lässt, ist sie zeitlich gleichauf mit der ursprünglichen Routine. Insofern ist bisher noch der einzige erfolgreiche Ansatz zur Optimierung das Aktivieren der Optimierung in den Compileroptionen.