Все лабораторные работы по паскалю / 4 лаб. Строки / Program3

uses crt;
const glasn=['а','е','ё','и','о','у','э','ю','я','ы'];
soglasn=['б','в','г','д','ж','з','й','к',
'л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ь','ъ'];
var Kgl,Ksogl,k,i: integer;
s:string;
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=1 to length(s) do
begin
if s[i] in glasn then
Kgl:=Kgl+1;
if s[i] in soglasn then
Ksogl:=Ksogl+1;
end;
writeln('Количество гласных: ',Kgl);
writeln('Количество согласных: ',Ksogl);
readln;
end.