Найти выражение в строке и подсчитать. Опции

[Mis]

Подскажите пожалуйста, второй день не могу решить

Вычислить результат выражения, заданного символьным набором abc22+4cd+32.5ef, выделив из набора символов 22 + 4 + 32.5.

На данный момент есть вот это:

Код

uses crt;
const number=['1','2','3','4','5','6','7','8','9','0'];
      plus=['+'];

var
s,a: string;
i,k,rezult,c1,code:integer;

begin
clrscr();
writeln('Введите строку=');
readln(s);

i:=1;
k:=1;
c1:=0;
rezult:=0;

while k<=length(s) do
  begin
  
    a:='';
    c1:=0;

    while not(s[i] in number) do
       i:=i+1;
  
    while s[i] in number do
      begin
        a:=a+s[i];
        i:=i+1;
      end;
    val(a,c1,code);
  
   if s[i] in plus then rezult:=rezult+c1;

   k:=k+1;
end;

writeln('Результат=',rezult);
end.

Но работать корректно оно не хочет

[Mis]

Огромное спасибо за разъяснение!