Вычислить значение арифметического выражения.

var
  s:string;
  p:array[1..9] of integer;
  q:array[1..8] of '*'..'-';
  n:byte;
  i:byte;
  o:boolean=true;
procedure roll(const i:byte);
var j:byte;
begin
   for j:=i+1 to high(p) do
   p[j]:=p[j+1];
   for j:=i to high(q) do
   q[j]:=q[j+1];
end;
 
begin
  s:='1*2-3*4+5*6-7';
  n:=(length(s)-1) div 2+1;
  for i:=0 to length(s) do
   if i mod 2 = 1 then p[i div 2+1]:=ord(s[i])-ord('0')
   else q[i div 2]:=s[i];
  writeln(s);
 
//Вырезаем умножения
  i:=1;
  while i<=n do
  begin
      o:=false;
      if q[i]='*' then
       begin
         p[i]:=p[i]*p[i+1];
         roll(i);
         o:=true;
       end;
       if o then begin dec(i); dec(n); end;
       inc(i);
  end;
 
//Операции + -
 
  i:=1;
  while i<=n do
  begin
      o:=false;
      if q[i]='+' then
       begin
         p[i]:=p[i]+p[i+1];
         roll(i);
         o:=true;
       end
       else if q[i]='-' then
       begin
         p[i]:=p[i]-p[i+1];
         roll(i);
         o:=true;
       end;
       if o then begin dec(i); dec(n); end;
       inc(i);
  end;
 
 
  writeln(p[1]);
  readln;
end.

var
  pq, p1, p2: string;
  m, n, k, l, j: integer;
begin
  writeln('Введите арифметическое выражение');
  readln(pq);
  while Pos('*', pq) > 0 do  
  begin
    p1 := '';
    k := Pos('*', pq);
    while (k > 1) and
    (pq[k - 1] in ['0'..'9']) do
    
    begin
      k := k - 1;
      p1 := pq[k] + p1
    end;
    p2 := '';
    l := Pos('*', pq);
    while (l < length(pq))
    and (pq[l + 1] in ['0'..'9']) do
    
    begin
      l := l + 1;
      p2 := p2 + pq[l]
    end;
    val(p1, n, j);
    val(p2, m, j);
    j := m * n;
    str(j, p1);
    delete(pq, k, l - k + 1);    
    insert(p1, pq, k)    
  end;
  write(pq);  
end.