Ввод минимум 5 фамилий и сортировка их по алфавиту pascal
// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('Вводите фамилии через пробел:').ToWords.Order.Println
end.