задача по множеству

[Марийка92]

Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят хотя бы в одно четное слово.

const n=5;
type
    mn=set of 'а'..'я';
var
   A,B: mn;
   i,n_sl: Integer;
   c:char;
   nety:boolean;
   str, sl: string;
begin
B:= ['м', 'п', 'н', 'с', 'т', 'к'];
writeln('Ввведите строку между словами запятая в конце точка');
ReadLn(str);
for c:='а'  to 'я' do
if c in B then
begin
i:=1;
n_sl:=0;
nety:=true;
while (i<=length(str)) and (nety=true) do
  begin
    sl:='';
    while (str[i]<>',') and (str[i]<>'.') do
      begin
        sl:=sl+str[i];
        inc(i);
      end;
      inc(n_sl);
    if (n_sl mod 2 =0) and (pos(c,sl)<> 0) then nety:=false;
    inc(i);
  end;
  if nety=false then writeln(c);
  end;
  writeln;
  end.

ввод идет а глухие буквы не выписывает




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.