[Keygenmusic]

4)посчитать пробелы и прибавить 1. это если текст по правилам, нормально написан.
var str:string; wordcount:integer;
for i:=0 to length(str) do
if str[i]=' ' then inc(wordcount);
inc(wordcount); //+1