Множественный тип данных Опции

[Fang]

Задание: "Дан текст. Определить количество согласных букв в нём"
Текст программыы:

Код

uses
 crt;
type
 letters = set of 'а'..'я';
var
 s: string;
 cnt,i:integer;
const
 sogl: letters = ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т'
 ,'ф','х','ц','ч','щ','ш'];
begin
 ClrScr;
 cnt:=0;
 readln(s);
 for i:=1 to Length(s) do
 if s[i] in sogl  then inc(cnt);
 writeln(cnt);
 readln;
end.

подскажите, что можно улучшить/что сделано неправильно...

[volvo]

Fang, дело в следующем:
то множество, которое привел klem4 является "разорванным", т.е. между символами "а" и "я" есть НЕ ТОЛЬКО все буквы русского алфавита, а еще и 48 посторонних символов (ты можешь в этом убедиться, если обратишь внимание на то, что Ord('а') = 160, а Ord('я') = 239, и сколько по твоему строчных букв в русском языке? 239 - 160 = 79, неужели у нас такой большой алфавит?)

А "разрывается" это множество именно между символами 'п' и 'р', поэтому я и предложил то, что написано в посте №4.