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

var i,j,sum,uper: longword;
k,cod:longint;
row,per:string;
op:char;
 
 
begin
  readln(row);
  i:=1;
  per:='';
  sum:=0;
  while pos(row[i],'+-')=0 do
    inc(i);
  sum:=sum+strtoint(copy(row,1,i-1));
  for j:=i to length(row) do begin
    val(row[j],k,cod);
    if cod=0 then
      per:=per+row[j]
    else begin
      op:=row[j];
      if op='+' then
[B]        sum:=sum+strtoint(per)[/B]  {Ошыбка здесь}
      else
        sum:=sum-strtoint(per); 
    end;
  end;
  writeln(sum);
end.

var
  s : String;
  i, sum, num, sign : Integer;
  
begin
  ReadLn(s);
  
  sum  := 0; // начальная сумма
  sign := +1; // предполодим, что первое число в строке положительное
  num  := 0; // вот здесь будем получать число
  
  for i := 1 to Length(s) do
    case s[i] of
      '-','+' : begin // очередной символ + или -
                  if num > 0 then // уже какое-то число было получено 
                    sum := sum + sign * num; // добавим к сумме знак умноженный на число
                  if s[i] = '-' then
                    sign := -1 // следующее число отрицательное
                  else
                    sign := +1; // следующее число положительное
                  num  := 0; // пока следующее число равно 0
                end;
      '0'..'9' : // символ - цифра
               num := num * 10 + (ord(s[i]) - ord('0')); // число*10 + цифра
    end;
 
  if num > 0 then // последнее число нужно тоже добавить
    sum := sum + sign * num;
    
  WriteLn(sum);
end.

program Calc;
 
var
  s: string;
  op1, op2: integer;
  Operation: char;
  i: integer;
begin
  s := '10+45-448';
 
  op1 := 0;
  op2 := 0;
  Operation := '+';
  for i := 1 to length(s) do
  begin
    if (s[i] in ['0'..'9']) then
      op2 := op2 * 10 + Ord(s[i]) - Ord('0');
    if (s[i] in ['+', '-']) or (i = length(s)) then
    begin
      case Operation of
        '+': op1 := op1 + op2;
        '-': op1 := op1 - op2;
      end;
      op2 := 0;
      Operation := s[i];
    end;
  end;
 
  writeln(s);
  writeln('=', op1);
end.