Программа которое считает количество слов в строке состоящий из трех букв.

Var s: String;
      k, kol: Integer;
Begin
   kol := 0;
   readln(s);
   while pos(' ',s) <> 0 do
 begin
      k := pos(' ',s);
      if k <> 0 then
         if k = 4 then begin
            kol := kol + 1;
            delete(s,1,4);
         end else
            delete(s,1,k);
      end;
   if length(s) = 3 then begin
         kol := kol + 1;
         delete(s,1,3);
      end;
   writeln(kol);
End.