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

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.