Составьте программу, которая удаляет лишние пробелы в строке s, оставляя по одному пробелу между словами. Строка s, состоящая из слов, разделенных пробелами, вводится с клавиатуры.

Вы эти uses для какой версии указываете? ))))

Для любой пойдут

А знаете, можно еще десяток uses добавить... и тоже пойдут. Но зачем?

uses System;uses System.Linq;var s: array of string;a: string;i, x: integer;beginreadln(a);s := a.Split();for i := 0 to s.Length - 1 do  if (s[i].Length <> 0) then    write(s[i] + ' ');end.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString('>').ToWords.JoinIntoString;  s.Println;end.Пример>     А   роза   упала на     лапу    АзораА роза упала на лапу Азора