Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы

program str;
uses crt;
var
   s: string;
   n,nsl,ksl,kol,i:byte;
begin
  writeln('Введите строку: ');
  readln(s);
  s:=' '+s;
  n:=length(s);
 
  for i:=1 to n do
  begin
      if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
         nsl:=i+1;
 
      if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
      begin
         ksl:=i;
         if ((ksl-nsl)+1=3) then kol:=kol+1;
      end; 
  end;
  
  writeln('Слов из 3-х букв ',kol);
 
end.

program str;
uses crt;
var
   s: string;
   slova: array [1..50] of string;
   n,nsl,ksl,kol,i:byte;
begin
  writeln('Ââåäèòå ñòðîêó: ');
  readln(s);
  s:=' '+s+' ';
  n:=length(s);
  writeln('Ñëîâà èç 3-õ áóêâ: ');
  for i:=1 to n do
  begin
      if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
         nsl:=i+1;
 
      if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
      begin
         ksl:=i;
         if ((ksl-nsl)+1=3) then
         begin
           kol:=kol+1;
           slova[kol]:=copy(s,nsl,3);
           writeln(slova[kol]);
         end;
      end;
  end;
 
  writeln('Ñëîâ èç 3-õ áóêâ ',kol);
 
end.