Срочно нужна помощь!!
1. С клавиатуры вводят слово и символ. Составть программу, которая:
а) проверяет, есть ли в этом слове заданный символ;
б) определяет позицию заданного символа;
в)  подсчитывает количество вхождений заданного символа.
2. С клавиатуры вводят строку и слово. Составть программу, которая:
а) определяет позицию заданного слова;
б) удаляет заданное слово;
в) вставляет в строку заданное слово.
3. Составть программу, которая:
а) из строки "Волга, Днепр, Неман, Енисей" удаляет названия рек, не протекающих по территории Беларуси;
б) из строки "Брест, Бобруйск, Витебск, Гомель, Мозырь, Могилев" удаляет названия городов, не являющихся областными центрами.
4. Составть программу, которая:
а) в строке "край озер" добавляет слова "лесов и рек";
б) в строке "я учусь в школе" заменить слова "в школе" на "в 10-ом классе".
5. Составть программу, которая переставляет на первое место:
а) в строке "моя родина Беларусь" слово "Беларусь";

б) в строке "люблю цябе мой родны кут" слова "мой родны кут".

Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))

Там все просто...

Программа №4

Program str999; Uses CRT; Var s: String; Begin Writeln('Введіте фразу'); read(s); if (s='край озер') then writeln ('Край озер лесов и рек'); if (s='Я учусь в школе') then writeln ('Я учусь в 10-м классе') end.

Потхоньку буду дополнять, не так все быстро)) 

Задание №5

Program р_1; Uses CRT; Var s: String; Begin Writeln('Введите фразу'); read(s); if (s='моя родина Беларусь') then writeln ('Беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.