Moin The Omega,
ich hab' mir das mal angeschaut, und mir sind da ein paar Dinge aufgefallen.
Erst einmal zum Geschwindigkeitsproblem:
TermToReal wird in einer Schleife aufgerufen, und verarbeitet den String term.
String Ver- bzw. Bearbeitung kann ziemlich zeitaufwändig sein. Deshalb ist es durchaus möglich, dass TermToReal eine Bremse ist.
Desweiteren, was hier nicht zu erkennen ist, könnte es von Vorteil sein den Parameter in TermToReal als const zu deklarieren (wenn möglich).
Was mich noch interessieren würde:
Funktioniert das so?
Als ich versucht habe den Code zu strukturieren, damit ich ihn besser lesen kann, fiel mir auf, dass die Procedure eigentlich vor der Zeile counter := temp+2; endet. Diese und der Rest werden nicht mehr verarbeitet. Als ich mal versucht habe das Ganze zu compilieren, war der Compiler der gleichen Ansicht
Meldung: Deklaration erwartet, aber Bezeichner 'counter' gefunden.
BTW:
Warum machst Du eigentlich hinter jedem Begin ein ; ?
Was übrigens den Code noch leichter lesbar machen würde, wären Präfixe bei den Variablen, den Typ angeben, z.B. i für Integer, e für Extended oder auch s für String.