Ответ в прикреплённом файле
<u>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Вводите:').ToWords.Where(w->(w.Length).IsOdd)
.Where(w->w.Right(2)='ая').Println
end.
Текст плохо форматируется, поэтому скину файлом.
I изменяется от 23 до 4 с шагом -1.