Текст программыы:
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.
подскажите, что можно улучшить/что сделано неправильно...