Дан файл содержащий текст на русском языке. Выяснить, входит ли введенное с клавиатуры слово в указанный текст - Delphi - Ответ 8070715

procedure TForm1.Button1Click(Sender: TObject);
//разделители слов, можно добавить еще
const rz=[' ',',','.','?','!','(',')'];
var t:TStringList;
    s,s1:string;
    i,k,p:integer;
begin
t:=TStringList.Create; //создаем список строк
t.LoadFromFile('1.txt');//грузим в него наш файл(он в папке с программой)
s:=Edit1.Text;//слово для поиска
k:=0;//пока нет
i:=0;//начнем с начала списка
while(i<t.Count)and(k=0) do
 begin
  s1:=t[i];
  p:=pos(s,s1);//есть ли последовательность букв слова есть в строке
  //если есть(p>0)и оно первое или перед ним разделитель
  //или оно последнее или за ним разделитель
  if (p>0)and((p=1)or(s1[p-1] in rz))and((p+length(s)=length(s1)-1)
  or(s1[p+length(s)]in rz))then k:=1
  else inc(i);
 end;
if k=0 then showmessage('Слова '+s+' в файле нет')
else showmessage('Слово '+s+' в файле есть')
end;
 
end.