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

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=3) then writeln(copy(s,k-2,3)); // проверяем, если расстояние меж пробелами три буковкы, то выводим слово на экран
end;
end;
end.