Строки и множества язык Pascal

[GamBitFRK]

Доброе утро! Есть не большое зависание в плане написания программы на Pascal

1) В каждом слове, имеющем не четную длину, сделать все нечетные буквы заглавными

В принципе знаю, что во вложенном цикле буду просматриваться слова, там же будут изменяться в зависимости от длины, но реализовать это не получается, запрещено пользоваться всеми процедурами строк кроме lenght

2) Найдите все слова первой строки, которые встречаются во второй и выведи их в алфавитном порядке.

Тут знаю что надо делать через массив строк, но с телом мучаюсь

3) Задача про множества - знаю что легкая, торможу полностью

Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза

Заранее спасибо