function includesword(fraza, word : string) : boolean; begin if pos(word,fraza)<>0 then result:=true else result:=false; end;