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

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]' ') and (s[i+1]'.') then

l:=i+1;

if (s[i]' ') and (s[i]'.') 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.