строки

[Анастасииия]

помогите))

задание:
С клавиатуры вводится строка, содержащая не более 60 символов. отдельные слова в строке разделены пробелами.
найти сумму всех целых чисел, содержащихся в строке

[rubius2008]

for i:=1 to length(s) do 
  if s[i] in ['0'..'9'] do s1:=s1+s[i]
  else if length(s1)>0 then begin
    val(s1,v,c);
    sum:=sum+v;
    s1:='';
  end;

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[p51x]

--------------------------------------------