Напечатать заданый тескт, удалив из него лишние пробелы, т.е. из несколько подряд идущих пробелов оставить только один.
Вроде так:
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.
Спасибо огромное. Очень помогла.