Помогите составить программу в Pascal. Дана строка символов, состоящая из слов, разделенных пробелами. Найти количество слов с пятью символами.

var y:string;    c,kolvo:int64;beginreadln(y);for var i:=1 to Length(y) do beginif y[i]<>' ' then c+=1 else c:=0;if c=5 then begin if Length(y)-i>=1 then begin if y[i+1]=' ' then kolvo+=1; end else kolvo+=1; end;end;writeln(kolvo);end.