Zitat:
arr:=s;
hier überschreibst du die vorher etstelle Instant der Stringliste!
richtiger wäre:
arr.Assign(s);
PS: TStrings als Parameter macht sich besser (so kann man auch StringList-ähnliche Dinge übergeben
(z.B. Memo1.Lines , welches ich für meinen Test mal schnell genommen hab)
Zitat:
if i=1 then
das Minus ist ja wohl im Index
0 
Zitat:
Delphi-Quellcode:
for j:=0 to arr.count-1 do
...
i:=i mod (arr.count);
setzt i auf 0 und führt die While-Schleite nochmals ab 0 aus
PS: fange gleich mit i:=0; an (bei + und -), dann muß da nicht doppelt bearbeitet werden
PS: das + gibt es auch als Vorzeichen (hast du ganz vergessen)
PSS: + und - als Vorzeichen innerhalb eines Strings "1+-2" dürfte auch Probleme bereiten