Записать программу. Определение количество слов состоящих больше…

var s: string; n,k,i: integer; Begin read (s); for i: =1 to length (s) do begin if s[i] in [",",","."] then begin if k>=3 then n: =n+1; k: =0; end else k: =k+1; end; write (n); End.