Задачи, небольшие задачки по строкам и файлам Опции

[mjey]

Вот тут несколько задачек, которые училка трясет к субботе. Не поможете. Задачи на любой вкус. Заранее благодарю за помощь.
1. Текст задан строкой var St: string; Напечатать те слова, которые являются симметричными (казак).
2. Все гласные буквы, которые входят в последнее слово
3. type myfile = file of char;
Опишите процедуру next(f), заменяющую в файле каждую ЦИФРУ на следующую по величине цифру ('9'заменять на '0').
4. Напишите функцию CountStrD(f), которая находит количество строк в файле, заканчивающихся буквой "d".
5. Напишите процедуру SeekType(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы типов.

[APAL]

Я смотрю уже третья тема на задачи подобного типа.
Причем больше всего удивляет однотипность формулировки:

Текст задан строкой var St: string;

,

type myfile = file of char;

.

http://pascal.net.ru/forum/index.php?showtopic=2116
http://pascal.net.ru/forum/index.php?showtopic=2115

Толи это один и тот же пользователь, то ли они все из одной школы/института?
Но училка у них точно одна и та же! :D

Извините, если оффтоп...