плиз, помогите решить, а то чет не получается В строке символов надо везде, где встречается символ "пробел", заменить его на два "пробела"

Что не получается? Что пробовал, можно посмотреть? Вообще все должно получаться, если идти от хвоста строки в ее начало (и НЕ циклом for, естественно)

А если встречается два пробела? Это будет отдельный символ "два пробела" или программа должна обработать каджый?

Значит, заменить на 4. Но я настоятельно рекомендую не приводить код до тех пор, пока ТС не покажет свои наработки...

А чем так плох for в данном случае? Я бы, думаю, именно с ним сделал..

Я тоже об этом подумал.
А еще о том, что не суть важно, перебирать от конца к началу или от начала к концу.
Но, несмотря на некоторую излишнюю категоричность утверждения, IMHO именно предложенный вариант самый простой в реализации.
В сообщениях volvo некедко явно либо неявно проскальзывает мысль, что предложенный им оптимальный вариант является единственно возможным. И, хотя формально это неверно, с дидактической точки зрения он, возможно, прав - нужно учить писать программы сразу оптимально.

PS. А еще неплохо было бы, если бы название темы соответствовало содержанию. Ну нет такого символа "два пробела".

А зачем тебе лишняя головная боль? Как ты собрался без этой самой головной боли заменить в строке (заметь, не переписать в другую строку, заменяя встреченный пробел на два, а именно заменить) один символ на два? Размер строки меняется, а For-у на это наплевать, он на каждой итерации условие окончания не вычисляет...

И что с того?
Все равно нам надо просмотреть именно ТО количество символов, которое было в первоначальной строке, а добавленные - не просмаривать.
Т.е. все условия цикла с наперед известным количеством повторений.

Да? Ну, попробуй:

s := 'вот  тебе  задачка    123';

Приведи решение с циклом For, я посмотрю, как, используя информацию об ИЗНАЧАЛЬНОЙ длине строки ты обработаешь последние пробелы... Никаких предварительных пробегов по строке, ибо While-вариант обойдется без этого...

Еще раз: НЕ записать в другую строку, а добавить в эту же, по условию...

Ты задание читал внимательно? Нам надо добавлять пробелы не в конец сроки, а в середину...

volvo, я что-то совсем перестал тебя понимать.. Я так туплю?
Что тут плохого:

var
  s: string;
  i: integer;

begin
  s := 'вот  тебе  задачка    123';
  for i:=Length(s) downto 1 do if s[i]=' ' then begin
    Delete(s,i,1);
    Insert('  ',s,i)
  end;
  WriteLn(s);
  ReadLn
end.

- ?

Добавлено через 2 мин.
Delete я вставил для большей общности (типа замена на два других символа)

Я, кстати, вчера по другой задаче задумывался над этим: цикл for единожды берет начальный параметр или при каждой итерации и потом что-то прибавляет/вычитает? Видимо, единожды, т.к. вариант Lapp'а работает, а там в качестве задания начального значения параметру цикла используется меняющаяся длина строки..

В моем коде это прозрачно - первый параметр вроде как очевидно единожды. Второй - менее очевидно, и вопрос вполне законный. Ответ: да, единожды, в начале. Если переменная, использованная для второго предела изменяется во время исполнения, это никак не влияет на реальные пределы.

Два вари анта на выбор:

  j := 1;
  for i := 1 to length(s) do begin
    if s[j] = ' ' then begin
      insert(' ',s,j);
      inc(j);
    end;
    inc(j);
  end;

  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(' ',s,j);

Правка: исправлена опечатка.

Боюсь, первый вариант пролетает...
вот т е бе зад а ч к а 1 23
Впрочем, как и второй..

s,s1:string;
s1:='';
s:='blablabla--текст';
i:integer;
for i:=0 to length(s) do
if s[i]=' ' then
s1:=s1+' ' else s1:=s1+s[i];

Да, в первом Варианте опечатка. А насчет второго - не понимаю.
Специально поставил на комп компилятор паскаля.
Полностью программа:

var
  s : string;
  i,j : longint;
begin
  s := 'вот т е бе зад а ч к а 1 23';
  writeln('<',s,'>');
  j := 1;
  for i := 1 to length(s) do begin
    if s[j] = ' ' then begin
      insert(' ',s,j);
      inc(j);
    end;
    inc(j);
  end;
  writeln('<',s,'>');
  s := 'вот т е бе зад а ч к а 1 23';
  writeln('<',s,'>');

  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(' ',s,i);
  writeln('<',s,'>');
end.

Результат работы:

Ну и во втором тоже опечатка.. Только она почему-то не попала в твой код.