Напечатать заданый тескт, удалив из него лишние пробелы, т.е. из несколько подряд идущих пробелов оставить только один.

Вроде так:

var i: integer;
    s: string;
begin
  writeln('введите строку');
  readln(s);
  for i:=length(s) downto 2 do
    begin
      if (s[i]=s[i-1]) and (s[i]=' ') then delete(s,i,1);
    end;
  writeln(s);
end.

Спасибо огромное. Очень помогла.