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

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.