Удаление лишних пробелов. Ввод/вывод в файл.

[Иван 883]

Спасибо еще раз bag Отзыв я оставил

К сожалению программа bag'а удаляет все пробелы. Я снова прошу помощи у Вас господа программисты.

[Stilet]

Я что-то не понял, вот же нормальный пример:

var s:string;
begin
s:='fsdfsdf sdf    sdf  fsd f';
while pos('  ',s)<>0 do delete(s,pos('  ',s),2);
caption:=s;
end;

Стандартный метод...

[Иван 883]

И снова прощу прощения, но я ни как не могу разобраться с этой программой... Вот код:

procedure DeleteSpases(var S:string);
begin
  while Pos(' ',S)>0 do Delete(S,Pos(' ',S),1);
end;

var FileIn,FileOut:text;
    S,NameFile:string;
begin
  write('Введите имя входного файла ');
  readln(NameFile);
  assign(FileIn,NameFile);
  {$I-}
  reset(FileIn);
  {$I+}
  write('Введите имя выходного файла ');
  readln(NameFile);
  assign(FileOut,NameFile);
  rewrite(FileOut);
  readln(FileIn,S);
  DeleteSpases(S);
  writeln(FileOut,S);
  Close(FileIn);
  Close(FileOut);
end.

Программа по прежнему удаляет все пробелы Помогите пожалуйста

[Dj_smart]

Кгхм... вроде ясно ж обьяснили что надо удалять только 2 пробела...

procedure DeleteSpases(var S:string);
begin
  while Pos('  ',S)>0 do Delete(S,Pos(' ',S),2);
  // 2! это - '  '
end;