Процедура определяющая входит ли введенное слово в текст

const
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; {Разделители слов.}
var
  S, Sw : String;
  i, Len, LenW : Integer;
  Res : Boolean;
begin
  Writeln('Задайте текст:');
  Readln(S);
  Writeln('Задайте слово:');
  Readln(Sw);
 
  Len := Length(S);
  LenW := 0; {Длина очередного слова.}
  Res := False; {Обнаружено ли слово в тексте.}
  for i := 1 to Len do
    if not (S[i] in D) then {Если символ не разделитель, значит он принадлежит слову.}
    begin
      Inc(LenW); {Учитываем очередной символ в длине слова.}
      if (i = Len) or (S[i + 1] in D) then {Отслеживаем конец слова.}
      begin
        Res := Sw = Copy(S, i - LenW + 1, LenW);
        if Res then {Если слово найдено, то выходим из цикла.}
          Break;
        LenW := 0; {Сброс длины слова.}
      end;
    end;
    
  if Res then
    Writeln('Заданное слово присутствует в тексте.')
  else
    Writeln('Заданное слово в тексте не найдено.');
 
  Readln;
end.