две задачки на STRING и на множества

[xSPiRiTx]

Поможите пожалуйста решить две несчастные задачки:

СТАНДАРТНЫЙ ТИП STRING
МОДУЛЬ STRINGS

11.Дана последовательность, состоящая из 10 слов. Напечатать
все слова последовательности, удалив из каждого слова
нечётные буквы, если слово имеет нечётное количество
символов.

М Н О Ж Е С Т В А

11. TYPE пpодукт = (хлеб, масло, мясо, pыба, соль, сыp,
колбаса, сахаp, чай, кофе);
ассоpтимент = set of пpодукт;
магазины = array [1..20] of ассоpтимент;
Описать пpоцедуpу "Наличие(Маг,А,В,С)", котоpая по инфоp-
мации из массива Маг типа магазины ( Маг[i] - это множес-
тво пpодуктов, имеющихся в i-м магазине ) пpисваивает
паpаметpам А,В и С типа ассоpтимент следующие значения:
А - множество пpодуктов, котоpые есть во всех магазинах;
В - множество пpодуктов, каждый из котоpых есть хотя бы в
одном магазине;
С - множество пpодуктов, котоpых нет ни в одном магазине.

[xSPiRiTx]

ааа, поможите плиз! препод ужасно мандражирует меня
каким-нить простым способом без процедур и т.п.