Помогите с кодом, пожалуйста... Дан текст произвольной длины, оканчивающий точкой. Текст состоит из слов, разделенных проблемами. Подсчитать: Количество слов, начинающихся с буквы К.

var   c:char;   k:integer;   FlagBlank:boolean; begin   Read(c);   case c of   'К','к':begin k:=1; FlagBlank:=True end;   ' ':begin k:=0; FlagBlank:=False end;   '.':k:=0;   else begin k:=0; FlagBlank:=True end   end;   while c<>'.' do begin     while (not FlagBlank) and (c<>'.') do     begin Read(c); FlagBlank:=(c=' ') end;     while Flagblank and (c<>'.') do     begin Read(c); FlagBlank:=(c=' ') end;     if UpCase(c)='К' then Inc(k);   end;   Writeln(k); end.