текстовые файлы

[Funy]

Ввести текст, слова которого разделены одним или несколькими пробелами. В начале и в конце текста могут находиться лишние пробелы. Напечатать в столбик слова этого текста от последнего слова до первого. Определить, есть ли в заданном тексте слова ровно с тремя буквами «а». Напечатать исходный текст без лишних пробелов.

[whatever]

Пришешь процедуру ReadWord, где в цикле while с условием ch<>' ' читаешь посимвольно в строку.
По завершении цикла пишешь строку в массив.
Печатаешь массив в "столбик слева", через цикл for и downto
Потом через for & to печатаешь массив в строку и в этом же цикле прибавляешь пробелы.
Для трех "а" тоже пишешь процедуру, кторая в цикле пробегает каждый символ в строке, при совпадении делает inc(schetchik), в конце проверка, если schetchik=3 значит печатаешь слово.