Вычислить выражение, состоящее из трех чисел и двух знаков

{$reference System.Data.dll}
uses System.Data;
begin
  with new DataTable() do
    writeln(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] = '*') or (op[opIndex] = '/') then
      begin
        if op[opIndex] = '*' then
          nums[opIndex] := nums[opIndex] * nums[opIndex + 1]
        else
          nums[opIndex] := nums[opIndex] div 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.

var
  i,j,k:integer;
  a:array[1..100] of integer;
  c:array[1..100] of char;
  s,t:string;
begin
  write('введите выражение:');readln(s);
  i:=1; if s[1]='-' then begin i:=2;t:='-';end;
  while i<=length(s) do begin
    j:=j+1;
    while (i<=length(s)) and (s[i] in ['0'..'9']) do begin t:=t+s[i];i:=i+1;end;
    a[j]:=strtoint(t);
    if i<length(s) then begin c[j]:=s[i];i:=i+1; end;
    t:='';
  end;
  i:=0;
  repeat
    i:=i+1;
    if (c[i]='/') or (c[i]='*') then begin
      if c[i]='*' then a[i+1]:=a[i]*a[i+1] else
      if a[i+1]<>0 then a[i+1]:=a[i] div a[i+1] else begin writeln('Деление на 0');halt;end;
      for k:=i to j-1 do begin a[k]:=a[k+1];c[k]:=c[k+1];end;
      j:=j-1;
      i:=0;
    end;  
  until i=j;
  for i:=1 to j do  
    if c[i] in ['+','-'] then if c[i]='+' then a[i+1]:=a[i+1]+a[i] else a[i+1]:=a[i]-a[i+1];
   writeln('ответ:',a[j]);   
end.