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

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