дана строка S. Вывести эту строку, так чтобы каждое слово начиналось с заглавной буквы.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
function Proper(s:string):=s[1].ToUpper+Copy(s,2,s.Length-1);

begin
  ReadlnString('>').ToWords.Select(w->Proper(w)).Println
end.

Тестовое решение
> это я и вся моя семья
Это Я И Вся Моя Семья