Строки

[HolyAries]

Помогите пожалуйсто решить данную задачу => Данa строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран порядковый номер слова, накрывающего k-ю позицию (если на k-ю позицию попадает пробел, то номер предыдущего слова).

[Mad_Cat]

c:=0;
for i:=1 to k do
if s[i]=' ' then c:=c+1;
if s[k]=' ' then writeln(c)
else writeln(c+1);