помогите срочно нужно. кто поможет дам 30 балов дан текст, имеющий вид: "d1-d2+d3- ...",...

Question

помогите срочно нужно. кто поможет дам 30 балов

дан текст, имеющий вид: "d1-d2+d3- ...", где di-цифры (n>1). вычислить записанную в тексте алгебрическую сумму

Answer 1

Если заработает, скажите, пожалуйста, хочется хоть что-нибудь отметить 

var
  a: string;
  i, j, g, err, res: integer;
  bo, ol: boolean;
begin
  readln(a);
  a := '+' + a + '=';
  for i := 1 to length(a) do
  begin
    val(a[i], g, err);
    if (err = 0) then
      j := j * 10 + g
    else
    begin
      if (ol) then
        if (bo) then
          res := res + j
        else
          res := res - j;
      bo := a[i] = '+';
      ol := true;
      j := 0;
    end;
  end;
  writeln(res);
end.