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

program Jesuit;
 
label
  Ethernal, Finish;
var
  s: string;
  Result, TempStr: string;
  i: integer;
  a, b: integer;
  ValResult: integer;
begin
  s := '1 + 2 = ?; 11 + 22 = ?; 111 + 222 = ?; -111 + 222 = ?';
  writeln(s);
  Result := '';
Ethernal:
  case length(s) of
    0: goto Finish;
  end;
  Result := Result + copy(s, 1, pos('?', s) - 1);
  i := pos(' ', s);
  val(copy(s, 1, i - 1), a, ValResult);
  Delete(s, 1, i + 2);
  i := pos(' ', s);
  val(copy(s, 1, i - 1), b, ValResult);
  Delete(s, 1, i + 2 + 1); {удаление ' = ?'}
  a := a + b;
  Str(a, TempStr);
  Result := Result + TempStr;
  {если существует, то копирование и удаление разделителя выражений '; '}
  Result := Result + copy(s, 1, 2);
  Delete(s, 1, 2);
  goto Ethernal;
Finish:
  writeln(Result);
end.

uses SysUtils, StrUtils;
label 1,0;
var
  i,j,m,n:longint;
  s,s1:string;
begin
  write('s=');readln(s);
  i:=0;
0: case pos('?',s) of
   0:goto 1;
   else begin
     m:=posex('?',s,m+1);
     s1:=copy(s,n+1,m-n);
     i:=posex('+',s1,i+1);
     j:=posex('=',s1,i+1);
     delete(s1,pos('?',s1),length(s1));
     s1:=s1+inttostr(strtoint(trim(copy(s1,1,i-1)))+strtoint(trim(copy(s1,i+1,j-i-1))));
     s:=copy(s,1,n)+s1+copy(s,m+1,length(s));
     n:=posex(';',s,m+1);
     goto 0;
   end;
 end;
1:
  writeln (s);
end.