множества Опции

[Sqrin]

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


напишите плиз

[volvo]

klem4, а как тебе вот такой способ решения первого задания (насчет чередования)?

const
   glasn=['q','e','y','u','i','o','a'];
   sogl=['a'..'z']-glasn;

type char_set = set of char;
const
  arrset: array[boolean] of char_set =
    (glasn, sogl);
var
   flag, which:boolean;
...
   for i := 1 to n-1 do begin
     which := posl[i][1] in glasn;
     flag := true; j := 1;
     while (j <= length(posl[i])) and flag do begin
       flag := posl[i][j] in arrSet[which xor odd(j)];
       inc(j)
     end;

     if flag and (posl[i] <> posl[n])
       then writeln(posl[i])
   end;

;)