Дан текст. Указать среди слов , начинающееся на "к" самое

[lekksa]

Дан текст. Указать среди слов , начинающееся на "к" самое короткое слово.(через строки)

Ребята помогите решить задачку пожалуйста. Кто откликнется буду очень благодарна .

[Bugrimov]

Какой язык программирования????

[Helloween]

#include "stdio.h"
#include "string.h"
#include "memory.h"
#include "locale.h"

int main()
{
  char* text = new char[1500];
  memset(text,0,1500);
  strcpy(text, "Однажды в студеную зимнюю пору я из лесу вышел был сильный мороз.");
  strcat(text, "Собака, курившая шмаль под забором меня испугавшись отправилась прочь.");
  strcat(text, "Но нет в этом сказе на букву \"к\" слова, поэтому кот.");
  strcat(text, "катушка катилась с крутого обрыва, и к ней приближался содат синих взвод");
  int min = strlen(text);
  char* p = strtok(text,"\n .,");
  char* tmp = NULL;
  if(p)
  {
	while(p)
	{
	  if(p[0] == 'к' && strlen(p) < min)
	  {
		if(tmp)
		  delete [] tmp;
		tmp = new char[strlen(p)+1];  
		strcpy(tmp,p);
		min = strlen(p);
	  }
	  p = strtok(NULL," \n.,");
	}
  }
  setlocale(LC_ALL,"Russian");
  printf("%s",tmp);
  delete [] tmp;
  return 0;
}

[rrrFer]

% считывает слово
get_word(S):- 
  get_char(C), (
    (char_type(C, white); char_type(C, end_of_file)), !, S = []
    ; get_word(SS), char_code(C, Code), S = [Code|SS]
  ).

% считывает список слов
get_all_words(L):-
	get_word(H), (
		H = [], !, L = []
		; get_all_words(T), L = [H|T]
	).

% выводит список слов
print_strings([]):-!.
print_strings([H|T]):-
	string_to_list(S, H), write(S), nl, print_strings(T).

% возвращает список слов, начинающихся с заданного симола
filter_by_first_letter([], _, []):-!.
filter_by_first_letter([[H1|T1]|T2], H1, [[H1|T1]|TR2]):-
	!, filter_by_first_letter(T2, H1, TR2).
filter_by_first_letter([_|T2], H1, TR2):-
	filter_by_first_letter(T2, H1, TR2).

% возвращает самое длинное слово списка
longest_word([H|T], R):-
	length(H, HLen),
	longest_word(H, HLen, T, R).
longest_word(R, _, [], R):-!.
longest_word(CW, CWLen, [H|T], R):-
	length(H, HLen), HLen > CWLen, !, longest_word(H, HLen, T, R);
	longest_word(CW, CWLen, T, R).

goal:-
	see('input.txt'), get_all_words(L), seen, 
	%print_strings(L), nl, write('---------------------'), nl, 
	"к" = [C|_], filter_by_first_letter(L, C, LC),
	%print_strings(LC), nl, write('---------------------'), nl, 
	longest_word(LC, Res), print_strings([Res]).

Если слов несколько выведется первое.