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

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

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

[Altair]

если работает, то в программе такого уровня ничего изменятьбольше не надо.
Все равно что оптимизировать сумматор a+b