INPUT a$
INPUT k
a$ = " " + a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN t = t + 1
IF t = k THEN sl$ = sl$ + MID$(a$, i, 1)
NEXT
IF t >= k THEN PRINT LTRIM$(sl$) ELSE PRINT "There is no this word"
Тестирование выполнено в программе QB64 ( Скачать )