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

program zz1;
var s:string; // задаем переменную строкового типа
i, k, l:integer; // задаем переменную целого типа
begin
write(' введите строку ');
read(s); // вводим с клавиатуры строку
s:=' '+s; // добавляем в начало строки пробел
for i:=1 to length(s) do
begin
if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
l:=i+1;
if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
begin
k:=i;
if ((k-l)+1=3) then writeln(copy(s,k-2,3)); // проверяем, если расстояние между пробелами три буквы, то выводим слово на экран
end;
end;
end.