Пояснить строчки кода

Pascal. Дана непустая последовательность слов из строчных русских букв; между соседними словами – запятая, за последним словом – точка. Напечатать звонкие согласные буквы, которые входят в каждое нечетное слово и не входят ни в одно четное слово в алфавитном порядке все.
program lab6;
const
cs='бвгздж';
var
s:string;
i:integer;
c:char;
p,csg:set of char;
begin
writeln('Введите текст, разделяя слова запятыми, в конце поставьте точку');
readln(s);
p:=[];
for i:=1 to Length(cs) do Include(csg,cs[i]);
s:=LowerCase(s);
i:=1; c:=s[1];
while c'.' do begin
while not (c in [',','.']) do begin
if (c in csg) and not (c in p) then
include(p,c);
i:=i+1;
c:=s[i]
end;
if c'.' then begin i:=i+1; c:=s[i] end;
while not (c in [',','.']) do begin
if (c in csg) and not (c in p) then Exclude(p,c);
i:=i+1;
c:=s[i]
end;
if c'.' then begin i:=i+1; c:=s[i] end
end;
s:='';
for i:=1 to Length(cs) do if cs[i] in p then
write(cs[i])
end.