Исправьте ошибку в моей программе

var st,str:string;
    i,summ,b,f,a:integer;
begin
  readln(str);
  i:=1;
  while str[i]<>'=' do begin
    while str[i] in ['0'..'9'] do begin
      st:=st+str[i];
      i:=i+1;
     end;
    Val(st,f,a);
    if str[i] in ['+'] then summ:=summ+f
      else if str[i] in ['-'] then summ:=summ-f;
    delete(str,0,i);
    i:=1;
  end;
  writeln(summ);
end.

var st,str:string;
    i,j,summ:integer;
    c:char;
begin
writeln('Введите строку из натуральных чисел, разделенных знаками + и -, в конце знак =');
readln(str);
str:=' '+str; //добавим пробел в начало для удобства
i:=2;
while i<=length(str) do
//если цифра, а перед ней не цифра, новое число
if (str[i] in ['0'..'9'])and not(str[i-1] in ['0'..'9']) then
 begin
  if i=2 then c:='+' else c:=str[i-1];//если первое, то +, иначе знак который перед числом
  st:=''; //составляем число
  j:=i;
  while(str[j] in ['0'..'9']) do
   begin
    st:=st+str[j];
    j:=j+1;
   end;
  if c='+' then summ:=summ+strtoint(st)
  else if c='-' then summ:=summ-strtoint(st);
  i:=i+length(st)+1;//перепрыгиваем
 end;
str:=str+inttostr(summ);
delete(str,1,1);//удалим пробел из начала
cls; //очистим окно
writeln(str);
end.