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

var a,d,e:string;    c:real;     f:integer;beginwriteln('введите предложение отделяя каждое слово новой строкой');readln(a);c:=0;while (a<>b) do beginif length(a) = 3 thenc:=c+1;readln(a);end;writeln(c);end.тут один минус , каждое новое слово надо вводить через enter совершенно не используя пробела и точку тоже чнрез enter

 var   s : string;   k,l,i,p : integer;  begin  readln (s);  l := Length(s);  k := 0;     for i := 1 to l do    begin     if (s[i] <> ' ') and (s[i] <> '.') then      k := k +1     else      begin       if k = 3 then        begin         for p := i-3 to i-1 do          write (s[p]);         write (' ');        end;       k := 0;      end;   end; end.Вводиться строка, считается что все слова разделены пробелом между собой, и строка оканчиватся точкой.