program ideone;
var s : string;
   p:integer;
begin
   s := 'know  as book enot on bork  kort in the kind';
 
   s := ' ' + s + ' '; {добавить пробелы в начало для поиска слов, начинающихся с K
   	                и в конец, чтобы найти конец слова   }
   p := Pos(' k',s);
   if p<>0 then begin
      s := Copy(s,p+1,Length(s)-p);
      p := Pos( ' k', s);
      if p<>0 then begin
         s := Copy(s,p+1,Length(s)-p);
         p := Pos(' ',s); {найти пробел после слова, чтобы выделить само слово}
         WriteLn(Copy(s,1,p-1))
      end;
   end;
   if p=0 then WriteLn('Нет такого слова')
end.

cHJvZ3JhbSBpZGVvbmU7CnZhciBzIDogc3RyaW5nOwogICBwOmludGVnZXI7CmJlZ2luCiAgIHMgOj0gJ2tub3cgIGFzIGJvb2sgZW5vdCBvbiBib3JrICBrb3J0IGluIHRoZSBraW5kJzsKICAgCiAgIHMgOj0gJyAnICsgcyArICcgJzsge9C00L7QsdCw0LLQuNGC0Ywg0L/RgNC+0LHQtdC70Ysg0LIg0L3QsNGH0LDQu9C+INC00LvRjyDQv9C+0LjRgdC60LAg0YHQu9C+0LIsINC90LDRh9C40L3QsNGO0YnQuNGF0YHRjyDRgSBLCiAgIAkgICAgICAgICAgICAgICAg0Lgg0LIg0LrQvtC90LXRhiwg0YfRgtC+0LHRiyDQvdCw0LnRgtC4INC60L7QvdC10YYg0YHQu9C+0LLQsCAgIH0KICAgcCA6PSBQb3MoJyBrJyxzKTsKICAgaWYgcDw+MCB0aGVuIGJlZ2luCiAgICAgIHMgOj0gQ29weShzLHArMSxMZW5ndGgocyktcCk7CiAgICAgIHAgOj0gUG9zKCAnIGsnLCBzKTsKICAgICAgaWYgcDw+MCB0aGVuIGJlZ2luCiAgICAgICAgIHMgOj0gQ29weShzLHArMSxMZW5ndGgocyktcCk7CiAgICAgICAgIHAgOj0gUG9zKCcgJyxzKTsge9C90LDQudGC0Lgg0L/RgNC+0LHQtdC7INC/0L7RgdC70LUg0YHQu9C+0LLQsCwg0YfRgtC+0LHRiyDQstGL0LTQtdC70LjRgtGMINGB0LDQvNC+INGB0LvQvtCy0L59CiAgICAgICAgIFdyaXRlTG4oQ29weShzLDEscC0xKSkKICAgICAgZW5kOwogICBlbmQ7CiAgIGlmIHA9MCB0aGVuIFdyaXRlTG4oJ9Cd0LXRgiDRgtCw0LrQvtCz0L4g0YHQu9C+0LLQsCcpCmVuZC4=