Дан текст. Найти сумму всех имеющихся внём чисел — Pascal(Паскаль)

var
a,t:string;
b,c,s,i:integer;
begin
readln(a);
for i:=1 to length(a) do
if (ord(a[i])>=48) and(ord(a[i])<=57)then t:=t+a[i]
else if t<>'' then
begin
val(t,b,c);
s:=s+b;
t:='';
end;
writeln('summa=',s);
readln;
end.