Здравствуйте!Прошу о помощи в такой задаче: в окне visual prolog 5.2 нужно ввести текст,а программа должна осуществить поиск глаголов по всему тексту,а затем списком вывести их на экран.В случае,если в тесте глаголов нет,должно вывестись сообщение об этом. Помогите пожалуйста.

Вот подобная программа на турбе, только со вставкой слова "уже":
domains 
s=string i=integer
predicates
Kon(s)
vstavka(i,s,s)


clauses
Kon(K):-          
K="t'";K="sya";K="et";K="al";K="la";K="yut";K="s'";K="yel";K="il";K="li";K="el".
vstavka(0,"",""):-      
     write("Zamen ne bylo!").
vstavka(1,"","").    
vstavka(_,S,R):-
   fronttoken(S,T,S1),
   str_len(T,Dl),
   D=Dl-2,                     
   frontstr(D,T,_,K),    
   Kon(K),               
                     
vstavka(1,S1,R1),    
  concat(T,R1,RR),     
                
  concat(" uzhe ",RR,R).     
                
        
vstavka(F,S,R):-
  fronttoken(S,T,S1),    
  vstavka(F,S1,R1),    
  concat(T,R1,RR),
  concat(" ",RR,R).
  
goal
 makewindow(1,112,7,"Vstavka slova",2,2,15,60),
 clearwindow,
 
 
 vstavka(0,S,N),
 write("\nVvedite text: \n"),
readln(S),
 write("\nResultat: \n",N).

помогите доделать, пожалуйста!