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

[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]

klem4,

const
    sogl = ['a'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];

Не советовал бы тебе это делать.
['а' .. 'я'] - разорванное множество, т.е. кроме того, что ты указал, содержит еще посторонние символы, а это тебе ни к чему. В крайнем случае:

const
    sogl = ['a'..'п', 'р'..'я']-['у','е','ъ','ы','а','о','э','я','и','ь','ю'];