С клавиатуры вводится строка, содержащая пример на суммирование 2=х чисел.Подсчитать сумму

Программка считывает строку с клавиатуры, разбивает ее на числа (их может быть больше 2-ух) и суммирует все отысканные числа. Программа работает только с суммой, для исполнения иных действий, нужна доработка.

Код:
procedure calculateSum(str : string);var s0 : string;    number, sum : real;begin  sum := 0;  foreach s0 in Regex.Split(str, '\++') do  begin    number := StrToFloat(s0);    if (number gt; 0) then    begin      sum := sum + number;    end;  end;  writeln(str + '=' + sum);end;
var s : string;begin  write('Введите пример: ');  readln(s);
  calculateSum(s);  end.