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

program slozgenie;
var a:array [1..1000000]of integer;
s,s1:string;
i,b,r,sum,k,n:integer;
begin
readln(s);
i:=0;
sum:=0;
for b:=1 to length(s) do
begin
n:=pos('+',s);
s1:=copy (s,1,n);
delete (s,1,n);
i:=i+1;
val(s1,a[i],r);
end ;
i:=i+1;
val(s,a[i],r);
for k:=1 to i do
sum:=sum+a[k];
writeln(sum);
end.

program slozgenie; {1708646}
 var s,s1:string;
     i,b,sum,n,m,o:integer;
begin
 cls;
 readln(s);                                  writeln('s=',s);
 sum:=0;
 o:=1;
 for i:=1 to 2 do
  begin
   n:=pos('+',s); if n=0 then n:=length(s);  writeln('n=',n);
   m:=pos('-',s); if m=0 then m:=length(s);  writeln('m=',m);
   if n>m then n:=m;                         writeln('n=',n);
   s1:=copy(s,1,n-1);                        writeln('s1=',s1);
   val(s1,b,m);                              writeln('b=',b);
   if o=1 then sum:=sum+b else sum:=sum-b;   writeln('sum=',sum);
   delete(s,1,n-1);                          writeln('s=',s);
   if s[1]='+' then o:=1 else o:=0;          writeln('o=',o);
   delete (s,1,1);                           writeln('s=',s);
 end;
 val(s,b,m);                                 writeln('b=',b);
 if o=1 then sum:=sum+b else sum:=sum-b;
 writeln('sum=',sum);
end.