1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

function Punkloesung(Rechnung:string):string;
var i,l,k,n:integer;
var hold1,hold2,res,op1,op2:string;
var erg:real;
begin
hold1:=#0;
hold2:=#0;
k:=1;
l:=1;
for i:=1 to length(Rechnung) do
 begin
  if (Rechnung[i] = '*') or (Rechnung[i] = '/') then
   begin
    while (Rechnung[i-l] <> '+') and (Rechnung[i-l] <> '-') and (Rechnung[i-l] <> '*') and (Rechnung[i-l] <> '/') and (l <> 0)
     do inc(l);
    while (Rechnung[i+k] <> '+') and (Rechnung[i+k] <> '-') and (Rechnung[i+k] <> '*') and (Rechnung[i+k] <> '/') and (k <> length(Rechnung))
     do inc(k);                   //Erkennung der länge der Zahlen vor und nach Operator
   end;
   if (i-l > 1) then
    begin
     for n:=1 to i-l
      do hold1[n]:=Rechnung[n];
    end;
   if (length(Rechnung)-(i+k) > 1) then
    begin
     for n:=1 to length(Rechnung)-(i+k)         //Restliche Funktion wird gespeichert
      do hold2[n]:=Rechnung[i+k+n];
    end;                                  
   for n:=1 to l
    do op1[n]:=Rechnung[i-l+n-1];
   for n:=1 to k
    do op2[n]:=Rechnung[i+n];            //Zu rechnende Zahlen werden in neue Variablen gesetzt
   if (Rechnung[i] = '*')
    then erg:=StrToFloat(op1)*StrToFloat(op2)
    else erg:=StrToFloat(op1)/StrToFloat(op2); //Berechnen der Operation
   for n:=1 to i-l
    do res[n]:=Rechnung[n];
   res:=res+FloatToStr(erg);
   for n:=i+k to length(Rechnung)
    do res[length(res)+1]:=Rechnung[n];  //Zusammensetzten der bearbeiteten Funktion
  end;
result:=res;
end;