Вывести на экран слова, содержащие три буквы

program ttt;
 
const s: string = 'cat story the book.'; { строка}
      N: integer = 3; { количество букв в словах, которые требуется найти }
 
var i, m :integer;
    pos : array[1..255] of integer;
 
begin
m:=1; { m будет номером разделителя между словами}
{ pos - это массив, содержащий номера позиции каждого разделителя в строке }
 
pos[m] := 0; { чисто для удобства положим, что первый разделитель находится перед началом строки, 
    то есть перед ее первым элементом.
 }
 
{ цикл, ищущий на какой позиции в строке находятся пробелы.
Все номера позиций найденных пробелов записываются в массив pos }
for i:=1 to length(s) do
   begin
        if s[i]=' ' then
           begin
                m:=m+1;
                pos[m]:=i;
 
           end;
   end;
 
pos[m+1] := length(s); { строка заканчивается точкой, таким образом она - последний разделитель в строке}
 
 
{ Цикл, в котором смотрим, если разность между соседними разделителями равна N (N=3), 
то значит слово содержит N букв и мы его выводим}
for i:=2 to m+1 do
   begin
       if (pos[i]-(pos[i-1]+1)=N) then writeln(copy(s, pos[i-1]+1, N));
   end;
 
readln;
end.