Дана строка символов содержащая текст и арифметические выражения вида a®b, где ®-один из знаков +,-,*,/. Выписать все арифметические выражения и вычислить их значения

Ваша программа не кушает унарный минус перед а

Вместо "S1:=S1+S[j];" надо было "S1:=S[j]+S1;" написать в 21 строке))

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString('Вводите:');  var m:=s.Matches('(\-{0,1}\d+(\.\d+){0,1}[\+\-\*\\]\d+(\.\d+){0,1})');  foreach var e in m do begin      var t:=e.Value;      Write(t,'=');      var op:=t.MatchValue('[\+\-\*\\]');      var i:=Pos(op,t);      var a:=t[:i].ToReal;      var b:=t[i+1:].ToReal;      case op[1] of      '+':Writeln(a+b);      '-':Writeln(a-b);      '*':Writeln(a*b);      '/':Writeln(a/b)      end    endend.ПримерВводите: jhdkjfsgbj sf5+4sdfgs   fd39.8*178.78dghfg5+4=939.8*178.78=7115.444