паскаль сижу чёт туплю ((((

Question

вот прога считает гласные и всего букв как её заставить посчитать согласные 
 
var S1:string; 
k,i:integer; 
begin 
 readln(S1); 
 i:=1; 
 k:=0; 
 for i:=1 to length(S1) do begin 
 S1:=UpCase (S1); 
 case S1 of 
 'А': k:=k+1; 
 'О': k:=k+1; 
 'Э': k:=k+1; 
 'Ю': k:=k+1; 
 'Я': k:=k+1; 
 'И': k:=k+1; 
 'Ё': k:=k+1; 
 'У': k:=k+1; 
 'Е': k:=k+1; 
 'Ы': k:=k+1; 
 
 end; 
 end; 
write('БУКВ ВСЕГО: '); 
writeln(i); 
write('ГЛАСНЫХ: '); 
writeln(k); 
 
end.

Юлия Дмитриева · Accepted Answer

Вот, держи :D 
 
const g='AЕЁИОУЫЭЮЯ'; 
const c='БВГДЖЗЙКЛМНПРСТФЧЦЧШЩ'; 
var s:string; 
 i,a,b:Integer; 
begin 
readln(s); 
for i:=1 to length(s) do begin 
 s[ i]:=upcase(s[ i]); 
 if pos(s[ i],g)>0 then inc(a) 
 else if pos(s[ i],c)>0 then inc(b); 
end; 
writeln('Всего букв: ',a+b); 
writeln('Гласных: ',a); 
writeln('Сласных: ',b); 
end.