Home11:

Текст задан строкой var St: string;
1. Напечатать все слова, отличные от Pascal.
2. Напечатать то слово, которое лексикографически (по алфавиту) предшествует всем другим словам.
3. Напечатать текст, составленный из последних литер всех слов.
4. Напечатать все слова, содержащие удвоенное м ("мм").
5. Напечатать те слова, которые являются симметричными (казак, шалаш).
6. Напечатать все слова, удалив среднюю букву у слов нечетной длины.
7. Напечатать все слова, удалив из них последнюю букву.
8. Напечатать все слова, перенеся первую букву каждого слова в конец слова.
9. Напечатать все слова, перенеся последнюю букву каждого слова в начало слова.
10. Напечатать все слова, удалив из них первую букву.
11. Напечатать все слова, удалив из них все последующие вхождения первой буквы. каждого слова.
12. Напечатать все слова, удалив из них все предыдущие вхождения последней буквы каждого слова.
13. Напечатать все слова, содержащие только русские буквы.

Написать функцию function Test(word:string): boolean принимающую значение True, если
14. Строка является словом.
15. Первая буква строки входит в нее еще раз.
16. Буквы строки упорядочены по алфавиту.
17. Количество гласных (a, e, i, o, u) превосходит количество других символов.
18. В строке есть восклицание (!) и вопрос (?).
19. Строка является символьным представлением натурального числа ("122", "34" и.т.д.).
20. В строку входят литеры, содержащиеся в глобальной переменной W типа string.
21. Строка является идентификатором.
22. В строке больше букв, чем знаков.
23. Строка является перевертышем.
24. Строка составлена только из строчных русских букв.
25. Количество руских букв в строке превосходит количество латинских.
26. Количество заглавных букв в строке превосходит количество прописных.
27. Строка является отрицательным вещественным числом.
28. В строке больше арифметических знаков, чем знаков препинания.
29. Предпоследняя буква строки входит в нее 3 раза.
30. Количество пробелов равно количеству слов.