Помогите пожалуйста!(Pascal) с подсчетом букв

[Tubus]

Программа подсчитывающая, сколько РАЗЛИЧНЫХ гласных букв слова Х употребляется в написании Х более 1 раза.

Помогите пожалуйста. Заранее большое спасибо

[alex_fcsm]

Можно было в старой теме дописать, а не заводить новую. Исправить минутное дело. Сейчас программа делает тоже самое для согласных букв. Попробуйте включить серое вещество и исправить.

const sogl=['b'..'d','f'..'h','j'..'n','p'..'t','v'..'x','z'];
var i,n:integer;
    s:string;
    M:set of char;
begin
writeln('Input word');
readln(s);
m:=[];
n:=0;
for i:=1 to length(s) do
 if (s[i] in sogl)  then begin
                          if s[i] in m then inc(n)
                           else   m:=m+[s[i]];
                         end;
writeln(n);
readln;
end.

[Tubus]

В той проге учитывались все согласные, а в этой те которые более 1 раза встречаются