Строки. Паскаль

[Elena04]

№1. Задано слово – последовательность произвольных символов.
Составьте программу для решения следующей задачи:
- Удалить среднюю букву, если слово нечетной длины, и вставить посередине пробел в ином случае.
- Подсчитать наибольшее количество идущих подряд одинаковых символов.
№2. Дана символьная строка. Слово – последовательность символов
между пробелами, не содержащая пробелы внутри себя. Составьте программу для решения следующей задачи:
-Найти слова, в которых нет повторяющихся букв.
- Подсчитать количество слов, имеющих удвоенные буквы.

[kashirin.p]

АААА!!!. Зачем я залез в помощь студентам. Вам программы написать или как? Тут дел на 10 минут. И если че тут вопросы задают а не задания выкладывают.
Покажите свои наработки.

[Stilet]

- Удалить среднюю букву, если слово нечетной длины, и вставить посередине пробел в ином случае.

if (length(s) div 2)=0 then insert(' ',s,length(s) div 2) else delete(s,length(s) div 2,1);