Задача 8 Урок 18

На вход вашей программы подается строка вида:
5 + 6 -34 + 56 - 7 + 2
("сколько угодно" чисел с операциями суммы и разности
в любом порядке). Вычислите результат (пробелов между
символом операции и числом может и не быть)

Задача 8 Урок 18

var
  chislo, i, sum: integer;
  s, S1: string;
begin
  writeln('vvedite chisla and operachii "+", "-", "=" :');
  //readln(s);
  s:= '5+6 -34 + 56  - 7 + 2 =';
  for i := 1 to length(s) do
    if s[i] in ['+', '-', '='] then
    begin
      val(S1, chislo);
      sum := sum + chislo;
      S1 := s[i]
    end
    else if s[i] <> ' ' then
      S1 := S1 + s[i];
    writeln('Summa: ', sum);
   readln();

end. 

Консоль:

Summa: 28