Строки

[PacMan]

Строки

Здравствуйте, помогите с программой пожалуйста...
Ввести строку с клавиатуры. Подсчитать во введенном тексте число согласных букв английского алфавита.

 

[Long Cat]

program Project2;
  const
   allchrs:set of char=['A'..'Z'];
   glasn:set of char=['A','E','I','O','Y','U'];
  var
   s:string;
   i:integer;
   cnt:integer;
begin
 readln(s);
 cnt:=0;
 for i:=1 to length(s) do
 begin
   if(upcase(s[i]) in (allchrs-glasn)) then
   begin
    inc(cnt);
   end;
 end;
 writeln(cnt);
 readln;
end.

 

[PacMan]

Огромное спасибо.