Дана непустая последовательность слов

Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все согласные буквы, которые входят в каждое нечетное слово.
var  nc: Boolean;  Letters: set of Char;  str: String;  p: Integer;  c: Char;beginReadLn(str);p:=1;nc:=True;while p < Length(str) + 1 do begin    Letters:=[];    while (str[p] <> ',') and (p < Length(str) + 1) do begin        if nc then            if [str[p]] * ['a'..'z'] - ['e', 'y', 'u', 'i', 'o', 'a'] <> [] then Include(Letters, str[p]);        Inc(p);        end;    Inc(p);    nc:=not nc;    if not nc then WriteLn;    for c:='a' to 'z' do if c in Letters then Write©;    end;Readln;end.
Можете пожалуйста написать какое действие делает каждая строчка
2 ответа

а вопрос твой в чем заключается?Добавлено через 1 минуту и 58 секундтебе сюда http://forum.vingrad.ru/index.php?show_typ...p;showforum=142


Описать каждую строчку которая делает программа.