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

var a,d,e:string;     c:real;     f:integer; begin writeln('введите предложение отделяя каждое слово новой строкой'); readln(a); c:=0; while (a<>b) do begin if length(a) = 3 then c:=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. Вводиться строка, считается что все слова разделены пробелом между собой, и строка оканчиватся точкой.