Подсчитать результат, выполняя арифметические операции в порядке их приоритета - PascalABC.NET

begin
  var s := ReadLnString('Введите выражение:');
 
  var nums := New List<real>;
  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] = '*') or (op[opIndex] = '/') then
      begin
        if op[opIndex] = '*' then
          nums[opIndex] := nums[opIndex] * nums[opIndex + 1]
        else
          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;
 
  WriteLn(s, ' = ', nums[0]);
end.