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

program zz1;
var s:string; // задаем переменную строкового типа
i, k, l:integer; // задаем переменную целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строку
s:= +s; // прибавляем в начало строчки пробел
for i:=1 to length(s) do
begin
if (s[i]= ) and (s[i+1]lt;gt; ) and (s[i+1]lt;gt;.) then
l:=i+1;
if (s[i]lt;gt; ) and (s[i]lt;gt;.) and ((s[i+1]=.) or (s[i+1]= )) then
begin
k:=i;
if ((k-l)+1=4) then writeln(copy(s,k-3,4)); // проверяем, если расстояние меж пробелами четыре буквы, то выводим слово на экран
end;
end;
end.