Символьные массивы и строки.

[kGxDD]

Задача:
В тексте убрать лишние пробелы, оставив по одному между любыми двумя словами.
Заранее спс

[Stilet]

Ну навскидку:

     var s:string;i:integer;
begin
 s:='Это  сторка   с   пробелами   пппэж';
 i:=pos('  ',s);
 while i<>0 do begin
  delete(s,i,1);
  i:=pos('  ',s);
 end;
 write(s);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.