Найти сумму всех имеющихся в тексте чисел (целых и вещественных, причем число может быть в экспоненциальной форме)

var
  a, t: String; dummy: Byte;
  i, w, d: Integer;
  sum, k: Real;
begin
  Write('Enter text: '); ReadLn(t); t[Length(t)+1]:=#0;
  i:=1;
  while i<=Length(t) do begin
    a:=''; d:=0;
     while (i<=Length(t)) and (t[i] in ['0'..'9','.']) do begin
      Inc(d,Ord(t[i]='.')); if d>1 then Break;
      a:=a+t[i]; Inc(i);
    end;
    if a<>'' then begin
      Val(a,k,w); if w=0 then sum:=sum+k;
    end;
    Inc(i);
  end;
  WriteLn(sum:0:2);
  Write('Press Enter...'); ReadLn;
end.

var s,s1:string;
    a,sum:real;
    i,j,k:integer;
begin
s:='ghgt 12 hjyu 12.35 jii 0.2e3 juy2;l 3e-2 mkmk';
sum:=0;
s:=' '+s+' ';
i:=2;
while i<length(s) do
if(s[i]<>' ')and(s[i-1]=' ') then
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  val(s1,a,k);
  if k=0 then sum:=sum+a;
  i:=i+length(s1);
 end
else i:=i+1;
write('Сумма чисел=',sum:0:3);
end.

var
  i, k, m, err: integer;
  x, sum: real;
  s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  i := 1;
  sum := 0;
  while i <= length(s) do
    begin
      m := i;
      for k := i + 1 to length(s) + 1 do
        begin
          val(copy(s, i, k - i), x, err);
          if (err = 0) and (k > m) then m := k
        end;
      if m > i
        then begin
          val(copy(s, i, m - i), x, err);
          sum := sum + x;
          i := m
        end;
      inc(i)
    end;
  writeln('sum = ', sum:0:10)
end.