Найти значение выражения, записанного в строке

{$reference System.Data.dll}
begin
  WriteLn((New System.Data.DataTable()).Compute(ReadString,''));
end.

 a, b, r: string[10];//первое, второе числа и результат

 a, b, r: string;//первое, второе числа и результат

{$reference System.Data.dll}
begin
  WriteLn((New System.Data.DataTable()).Compute(ReadString,''));
end.

begin
  var s := ReadLnString('Введите выражение:');
 
  var nums := New List<integer>;
  var op := New List<char>;
  var n := 0;
  foreach var c in s do
    case c of
      #48..#57 : n := n * 10 + StrToInt(c);
      '+', '-', '*' : begin nums.Add(n); n := 0; op.Add(c); end;
    else
      WriteLn('Встречен неожиданный символ «', c, '» в позиции ', Pos(c, s), '.', NewLine,
      'Работа прекращена.');
      Halt;
    end;
  if n > 0 then nums.Add(n);
 
  var opIndex := 0;
  repeat
    if op[opIndex] = '*' then
      begin
        nums[opIndex] := nums[opIndex] * nums[opIndex + 1];
        nums.RemoveAt(opIndex + 1);
        op.RemoveAt(opIndex);
      end
    else
      opIndex += 1;
  until opIndex = op.Count;
 
  repeat
    case op[0] of
      '+' : nums[0] := nums[0] + nums[1];
      '-' : nums[0] := nums[0] - nums[1];
    end;
    nums.RemoveAt(1);
    op.RemoveAt(0);
  until op.Count = 0;
 
  $'{s} = {nums[0]}'.Print;
end.