Дана строка вывести слова с окончанием ая нормальное решение и быстро я на уроке)

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('->').ToWords.Where(w->w.Right(2)='ая').Println
end.

Результат
-> Я самая обаятельная и привлекательная в этом классе
самая обаятельная привлекательная