Austauschen einer Case Anweisung mit einer Sinnvolleren

[Fritzew]

Nicht geprüft, aber da Du den Satz ja veränderst würde ich das so lösen:
Also vom Ende her untersuchen deshalb anstatt einer for eine while loop

Delphi-Quellcode:

'C','c' : begin
               laufVariable := length(satz);
               while laufvariable > 0 do 
                    begin
                        case satz[laufVariable] of
                         '+' : begin
                                delete(satz,laufVariable, 1);
                                insert(plus,satz,laufVariable);
                               end;
                         '-' : begin
                                delete(satz,laufVariable,1);
                                insert(minus,satz,laufVariable);
                               end;
                         '*' : begin
                                delete(satz,laufVariable,1);
                                insert(mal,satz,laufVariable);
                               end;
                         '/' : begin
                                delete(satz,laufVariable,1);
                                insert(geteilt,satz,laufVariable);
                               end;
                        end; // End case
                        dec(laufvariable);
                    end;
                   writeln(satz);

           end;