ctk=Import["h:\\ctk.txt"];
novinky=Import["h:\\novinky.txt"];
echo24=Import["h:\\echo24.txt"];
idnes=Import["h:\\idnes.txt"];

dict[input_]:=StringSplit[ToLowerCase@input,{"\r\n","\n"," ","\t"}]
dictionary=Union@Flatten@Map[dict,{ctk,novinky,echo24,idnes}];

vectorize[input_]:=Normalize@Map[Count[dict@input,#]&,dictionary]
vektory=Map[vectorize,{ctk,novinky,echo24,idnes}];

For[i=2,i≤4,i++,
Echo[vektory[[1]].vektory[[i]]//N,"'Mira' opisovani"];Echo[{"ctk","novinky","echo24","idnes"}[[i]]]
]