Написать программу, которая подсчитывает количество слов, начиающихся с согласной

uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var s:string;
    n,i,k:byte;
    bk,sg:set of char;
begin
bk:=['А'..'я'];//все руские буквы без Ё,ё
//согласные буквы
sg:=bk-['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
writeln('Введите строку из слов, отделенных знаками препинания и/или пробелами');
readln(s);
s:=' '+s;
n:=length(s);
k:=0;
for i:=1 to n do
if (s[i] in sg)and(s[i-1] in rz)then inc(k);
writeln('Количество слов, начинающихся на русскую согласную=',k)
end.

uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var s,s1:string;
    n,i,j,k:byte;
    bk,sg:set of char;
begin
bk:=['А'..'я'];//все руские буквы без Ё,ё
//согласные буквы
sg:=bk-['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
writeln('Введите строку из слов, отделенных знаками препинания и/или пробелами');
readln(s);
s:=' '+s;
n:=length(s);
k:=0;
i:=1;
while i<=n do
if (s[i] in sg)and(s[i-1] in rz)then
 begin
  inc(k);
  s1:='';
  j:=i;
  while(j<=n)and not(s[j] in rz) do
   begin
    s1:=s1+s[j];
    j:=j+1
   end;
  writeln(s1);
  i:=i+length(s1)
 end
else i:=i+1;
writeln('Количество слов, начинающихся на русскую согласную=',k)
end.