Pascal/Turbo Pascal - Ejercicio: leer una cadena de caracteres e indicar cuantas consonantes se encuentran

uses crt;

var

	cadena:string;

	i:integer;

	b,c,d,f,g,h,j,k,l:byte;

	m,n,p,q,r,s,t,v,w,x,y,z:byte;

begin

	clrscr;

	write('Ingrese una palabra: ');

	readln(cadena);

	for i:=1 to length(cadena) do begin

		case cadena[i] of

			'b': inc(b);

			'c': inc(c);

			'd': inc(d);

			'f': inc(f);

			'g': inc(g);

			'h': inc(h);

			'j': inc(j);

			'k': inc(k);

			'l': inc(l);

			'm': inc(m);

			'n': inc(n);

			'p': inc(p);

			'q': inc(q);

			'r': inc(r);

			's': inc(s);

			't': inc(t);

			'v': inc(v);

			'w': inc(w);

			'x': inc(x);

			'y': inc(y);

			'z': inc(z);

		end;

	end;

	writeln('Letras b: ',b);

	writeln('Letras c: ',c);

	writeln('Letras d: ',d);

	writeln('Letras f: ',f);

	writeln('Letras g: ',g);

	writeln('Letras h: ',h);

	writeln('Letras j: ',j);

	writeln('Letras k: ',k);

	writeln('Letras l: ',l);

	writeln('Letras m: ',m);

	writeln('Letras n: ',n);

	writeln('Letras p: ',p);

	writeln('Letras q: ',q);

	writeln('Letras r: ',r);

	writeln('Letras s: ',s);

	writeln('Letras t: ',t);

	writeln('Letras v: ',v);

	writeln('Letras w: ',w);

	writeln('Letras x: ',x);

	writeln('Letras y: ',y);

	writeln('Letras z: ',z);

end.