Для каждого слова заданного предложения указать долю согласных — Pascal(Паскаль)

uses crt;
const sg:string='qwrtpsdfghjklzxcvbnm';
var S,slv: string;
    i,j,k,b:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;slv:=''; b:=0;
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    slv:=slv+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  for j:=1 to length(slv) do
  if pos(slv[j],sg)>0 then b:=b+1;{считаем в слове согласные}
  writeln('В слове ',slv,' доля согласных=',b*100/length(slv):0:1,'%');
  i:=i+length(slv);{перепрыгиваем}
 end
else i:=i+1;
readln
end.