имеются ли в последовательности слова, все буквы в которых находятся в алфавитном порядке.

begin
  var a:=ReadlnString('Вводите слова через пробел:').ToWords;
  foreach var w in a do
    if w=w.Sorted.JoinIntoString('') then Print(w)
end.