delphi программа

[vbchristy46]

Написать программу, содержащую функцию «Согласная», которая проверяет является ли введенный в качестве аргумента символ согласной буквой латинского алфавита.

помогите пожалуйста... если можно с полным текстом программы......

[fbus]

пиши в аську, сделаю сразу

[Snejnaya]

type
   letters = set of char;

var
soglasnie:letters;
symv:char;
flag:boolean;

function proverka(symvol:char):boolean;
begin
if symvol IN soglasnie then result:=true
else result:=false;
end;

begin
soglasnie:=['b','c','d','f','g','j','k', 'p','r','s','t' ...и т.д. все согласные...,'z'];
writeln('vvedite symvol');
readln(symv);
flag=proverka(symv);
if flag then writeln ('yes')
else writeln('no');
readln;
end.

[mMAg]

И всё-таки, лучше было бы ввести только гласные (их намного меньше) и так же проверить пределы изменения букв латинского алфавита (фиксированные), а буквы непрерывны на 2 отрезках (если считать верхний и нижний регистры).