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

Program mn_7;

uses crt;

type
  let = ' а' .. 'я';

var
  sogl: set of let;
  s: string;
  I, k: byte;

begin
  writeln('введите текст, заканчивающийся  точкой');
  readln(s);
  if s[length(s)] <> '.' then
    s := s + '.';
  sogl := ['п', 'ф', 'х', 'т', 'с', 'к', 'ч', 'ш', 'щ', 'ц', 'б', 'в', 'г', 'д',
    'ж', 'з', 'л', 'м', 'н', 'р'];
  I := length(s);
  while s[I] <> '  ' do
  begin
    if s[I] in sogl then
      k := k + 1;
    I := I - 1;
  end;
  writeln(k);
  readln;

end.