Вводится текст. Конец ввода F1. Определить количество слов, начинающихся на букву K, в которых нечетное количество букв.

[pomogitemneplz]

Я только нашел слова на К, а как еще и только нечетные на К сделать не знаю. Попытался ввести счетчик букв, но теперь выдает 1 при вводе первым символом k. В иных случаях пишет слов нет.
Вот что сделал

program zadacha2;
uses crt;
var c1,c2:char;
f,i,t:integer;
begin
t:=0;
c1:=' ';
i:=0;
f:=0;
repeat
c2:=readkey;
t:=t+1;
while(c2=#0)=false do begin
writeln(c2);
if(c1=' ') then begin
if(t mod 2 = 1)then
if ((c1=' ')and(c2='k'))=true then f:=f+1;
t:=0;
end;
c1:=c2;
c2:=readkey;
end;
c2:=readkey;
until (c2=#116)=true;
if (f=0)=true then write('slov net')
else write(f);
end.

Прошу не переделывать кардинально задачу, т.к. оформление должно быть +- таким, как моё.