дана строка заканчивающаяся точкой подсчитать сколько в строке слов с тремя буквами PASCAL

Question

дана строка заканчивающаяся точкой подсчитать сколько в строке слов с тремя буквами PASCAL

Answer 1

Var c:char; k,i:integer;
begin
k:=0; i:=0;
read(c);
while c<>'.' do begin
if c=' ' then begin
if i=3 then k:=k+1;
i:=0 end
else i:=i+1;
read(c)
end;
write(k)
end.