Не понимаю в чем ошибка в коде программы

var a,m,n,q,w:string;
b,c,d,e,f,g,k:integer;
begin
writeln('Введите выражение:');
readln(a);
for b:=1 to length(a) do
if (a[b]='+') or (a[b]='-') then
begin
m:=copy(a,1,b-1);
n:=copy(a,1,b+1);
c:=b;
end;
for d:=c to length(a) do
begin
if (a[b]='+') or (a[b]='-') then
begin
q:=copy(a,1,d-1);
w:=copy(a,d+1,1);
k:=d;
end;
end;
val(m,e,d);
val(q,f,d);
val(w,g,d);
writeln('Ответ:');
if (a[c]='+') and (a[k]='+') then writeln(e+f+g);
if (a[c]='+') and (a[k]='-') then writeln(e+f-g);
if (a[c]='-') and (a[k]='+') then writeln(e-f+g);
if (a[c]='-') and (a[k]='-') then writeln(e-f-g);
end.

begin
  var s := ReadLnString('Введите выражение:');
  
  foreach var c in s do // проверка на допустимые символы
    if '0123456789+-'.IndexOf(c) < 0 then
      begin
        $'Недопустимый символ [{c}] в позиции {s.IndexOf(c)+1}'.Println;
        Halt;
      end;
  
  // перед знаком + или - добавим пробел
  var tmp := s.Replace('+', ' +').Replace('-', ' -');
  
  // разбить на отдельные слова по символу пробел
  var words := tmp.ToWords;
  
  // каждое слово преобразовать в число
  var nums := words.Select(word->StrToInt(word));
  
  // вычислить сумму полученных чисел
  $'{s}={nums.Sum}'.Println;
end.

begin
  var s := ReadLnString('Введите выражение:');
  try
    $'{s}={s.Replace(''+'', '' +'').Replace(''-'', '' -'').ToWords.Select(word->StrToInt(word)).Sum}'.PrintLn;
  except
    WriteLn('Ошибка в выражении!');
  end;
end.