Дана строка. Найти сумму записанных в строке чисел.

var s: string; sum: integer; num,p: integer; numstr: string; begin writeln ('Введите строку чисел через пробел'); read(s); sum := 0; while s.Length>0 do begin while s[1]=' ' do Delete(s,1,1); p := Pos(' ',s); if p=0 then p := s.Length; numstr := Copy(s,1,p); Delete(s,1,p); num := StrToInt(numstr); sum += num; end; writeln('Сумма чисел строки равна ',sum); end.

var a:string;i,s:integer; begin read (a); for i:=1 to length(s) do begin s:=s+i; write (s); end; end.