Проверяет есть ли слово из трех букв — Pascal(Паскаль)

program bc;

var s,slovo:string;
    i,k:integer;
    p:boolean;
begin write('Введите строку:');
      readln(s);
      i:=1;
      p:=true;
      slovo:='';
      k:=0;
      while s[i]<>'.' do
       begin if s[i]<>' '
                then begin slovo:=slovo+s[i];
                           k:=k+1
                     end
                else begin if k=3
                              then begin writeln(slovo);
                                         p:=false
                                   end;
                           slovo:='';
                           k:=0;
                     end;
              i:=i+1
        end;
       if k=3 then begin writeln(slovo);
                         p:=false
                   end;
      if p then writeln('В данной строке слов из 3 букв не найдено.');
end.