Сумма чисел в строке

[Oleg36]

Найти сумму чисел в строке помогите написать программу в Паскале плиииз!

[alex_fcsm]

var st:string;
    i,j,code,sum:integer;
    
begin
readln(st);
sum:=0;
for i:=1 to length(St) do
 if st[i] in ['1'..'9'] then begin
                             val(st[i],j,code);
                             sum:=sum+j;
                             end;
writeln(sum);
end.

Или может так

uses crt;
var s,sub:string;
    i,n,j:integer;
    a:array[1..100] of string;
    flag:boolean;
    sum:real;
    
function StrToReal(x:string):real;
var i,j,code:integer;
     res,temp:real;
begin
res:=0;
for i:=length(x) downto 1  do
 begin
   val(x[i],temp,code);
  for j:=1 to i-1 do
    temp:=temp*10;
    res:=res+temp;
 end;
 StrToReal:=res;
end;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
for i:=1 to n do
 begin
  flag:=true;
  for j:=1 to length(a[i]) do
   if not (a[i][j] in ['0'..'9']) then flag:=false;
   if flag then sum:=sum+StrToReal(a[i]);
 end;
 writeln(sum);
end.