Определить, обозначает ли данная согласная буква звонкий звук или глухой

m1:=[...];  (*множество глухих*)
m2:=[...];  (*множество звонких*)
repeat
write('введите символ: ');
readln(c);
if c in m1 then writeln('глухая согл.')
else if c in m2 then writeln('звонкая согл.')
else writeln('введённый символ не является согл. буквой');
until c=#27;

uses crt;
var
    b:set of char;
    a:char;
begin
    clrscr;
    write('Введите согласную :'); readln(a);
    b:=['б','в','г','д','ж','з','л','м','н*','р'];
    if (a in b) then  write(a,' звонкий') else write(a,' глухой');
    readkey;
end.

uses crt;
var
a: set of 'à'..'ÿ';
b: set of 'à'..'ÿ';
c:char;
begin
a:=['á','â','ã','ä','æ','ç','ë','ì','í','ð'];
b:=['ê','ñ','ò','ô','õ','ö','ø','ù'];
writeln('vvedite bykvy');
readln(c);
if c in a  then writeln('zvonkaja')
else if c in b then writeln('glyhaja')
else writeln('nichego neponjatno');
end.

uses crt;
var
a: set of 'а'..'я';
b: set of 'а'..'я';
c:char;
begin
a:=['б','в','г','д','ж','з','л','м','н','р'];
b:=['к','с','т','ф','х','ц','ш','щ'];
writeln(введите букву);
readln(c);
if c in a  then writeln('звонкая')
else if c in b then writeln('глухая')
else writeln('понятно');
end.