Подсчитать сколько раз в текстовом файле встречается слово, состоящее из согласных букв — Pascal(Паскаль)

program z1;
const q=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
var
f:text;
b,c,st:string;
a:array[1..100] of string;
w,e,r,i,s1,k,j:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,st);
close(f);
st:=' '+st;
for i:=1 to length(st) do
if st[i]=' ' then k:=k+1 else a[k]:=a[k]+st[i];
e:=0;
for i:=1 to k do
begin
r:=0;
for j:=1 to length(a[i]) do
if a[i][j] in q then r:=1;
  if r=0 then e:=e+1;
end;
writeln(e);
readln;
end.