Определить сумму чисел в строке

const cf=['0'..'9','-'];//цифры и знак минус
var s,s1:string;
    i,j,sum:integer;
begin
writeln('Введите строку из слов и целых чисел разделенных пробелами');
readln(s);
s:=' '+s;
sum:=0;
for i:=2 to length(s) do
if(s[i] in cf) and(s[i-1]=' ') then
 begin
  j:=i;
  s1:='';
  while(j<=length(s))and(s[j] in cf) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  sum:=sum+strtoint(s1);
 end;
write('Сумма чисел=',sum)
end.

  n:=0;
  while (j<=length(s)) and (s[j] in cf) do begin
    n:=n*10+Ord(s[j])-Ord('0'); Inc(j);
  end;
  sum:=sum+n;

const digits=['0'..'9'];
var
  i, n, sum: Integer;
  s: String;
begin
  ReadLn(s); i:=1;
  while i<=Length(s) do begin
    if s[i] in digits then begin
      n:=0;
      repeat n:=n*10+Ord(s[i])-Ord('0'); Inc(i);
      until (i>Length(s)) or not (s[i] in digits);
      sum:=sum+n;
    end;
    Inc(i);
  end;
  WriteLn(sum);
end.

var
  i, n, sum: Integer;
  s: String;
begin
  ReadLn(s); i:=1;
  while i<=Length(s) do begin
    n:=0;
    while (i<=Length(s)) and (s[i] in ['0'..'9']) do begin
      n:=n*10+Ord(s[i])-Ord('0'); Inc(i);
    end;
    sum:=sum+n; Inc(i);
  end;
  WriteLn(sum);
end.

const digits=['0'..'9'];
var
  i, n, sum: Integer;
  s: String; dummy: Char;
begin
  ReadLn(s); i:=1;
  if Length(s)<255 then s[Length(s)+1]:=#0;
  while i<=Length(s) do begin
    n:=0;
    while s[i] in digits do begin
      n:=n*10+Ord(s[i])-Ord('0'); Inc(i);
    end;
    sum:=sum+n; Inc(i);
  end;
  WriteLn(sum);
end.