Склавиатуры вводится текст, слова в котором отделяются любым количеством пробелов. на экран вывести текст, слова в котором отделяются друг от друга одним пробелом.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  ReadlnString('>').ToWords.Println;
end.

Тестовое решение
> А   роза     упала     на лапу    Азора
А роза упала на лапу Азора