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

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.

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:= k + 1;
inc(i);// без else

if k=0 then showmessage('Слова '+s+' в файле нет')
else showmessage('Слово '+s+' в файле есть и встречается '+IntToStr(k)+' раз(а)')

k:=0;//пока нет
for i:=0 to t.Count-1 do
 begin
  s1:=t[i];
  p:=pos(s,s1);
  while p>0 do
   begin
    if (p=1)or(s1[p-1] in rz))and((p+length(s)=length(s1)-1)
    or(s1[p+length(s)]in rz))then
     begin
      k:=k+1;
      delete(t[i],1,p+length(s)-1);
     end;
   end;
 end;
if k=0 then showmessage('Слова '+s+' в файле нет')
else showmessage('Количество слов '+s+' ='+inttostr(k))

s1:=t[i] + ' ';

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) 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
//      if  ( (p=1) and (s1[length(s)+1] in rz) )
//      or ( (p=Length(s1)-Length(s)+1) and (s[Length(s1)-Length(s)] in rz) )
//      or ( (s1[length(s)+1] in rz) and (s[Length(s1)-Length(s)] in rz ) )
//      then
      begin
  k := k + 1;
  delete(s1,Pos(s,s1),Length(s));
  t[i] := s1;
  i := i - 1;
  end;
  inc(i);
 end;
if k=0 then showmessage('Слова '+s+' в файле нет')
else showmessage('Слово '+s+' в файле есть и встречается '+IntToStr(k)+' раз(а)');
end;

uses StrUtils;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TStringList;
  SE, SS : string;
  K, C : Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('1.txt');
    SS := AnsiUpperCase(SL.Text);
    SE := AnsiUpperCase(Edit1.Text);
    if (SS <> '') and (Pos(SE, SS) > 0) then begin
      C := 0;
      K := Pos(SE, SS);
      while K > 0 do begin
        Inc(C);
        K := PosEx(SE, SS, K+1);
      end;
      ShowMessage('Слов найдено: '+IntToStr(C));
    end else
      ShowMessage('Слова нет')
  finally
    SL.Free;
  end;
end;

p:=pos(AnsiLowerCase(s),AnsiLowerCase(sl));//есть ли последовательность букв слова есть в строке

while(i<t.Count) do
 begin
 s1:=t[i] + ' ';
  p:=pos(AnsiUpperCase(s1),AnsiUpperCase(s))//åñòü ëè ïîñëåäîâàòåëüíîñòü áóêâ ñëîâà åñòü â ñòðîêå
  //åñëè åñòü (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
//      if  ( (p=1) and (s1[length(s)+1] in rz) )
//      or ( (p=Length(s1)-Length(s)+1) and (s[Length(s1)-Length(s)] in rz) )
//      or ( (s1[length(s)+1] in rz) and (s[Length(s1)-Length(s)] in rz ) )
//      then
      begin