var 
  s: string := '1 2 4 8 16 32 64 128 256 512';
  sum: integer;
  num,p: integer;
  numstr: string;
begin
  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.