pascal.в данной строке подсчитать количество слов из трех букв.

//Pascal ABC.NET 3.1 сборка 1219Var s:string; k,i:integer;begink:=0;readln(s);var ars:=s.Split;for i:=0 to ars.Length-1 doif length(ars[i])=3 then inc(k);writeln(k);end.Пример ввода:Some odd txtПример ввода:2