Найти слово, встречающееся в каждом предложении

type
  TNeed = record
    word: Array [1..15] of string // будет использоваться для хранения слов
  end;
 
const Letters: set of char = ['a'..'z','A'..'Z'];
      eo_sentence: set of char =['?', '!', '.'];
var Pred: array [1..15] of TNeed; // pred - будет хранить "предложения"
                           // будет, что-то вроде Pred[i].word[j] ,  j-е слово из i-го предложения
var s: String;
    t: Boolean;
    i, j, kol, l, n, k, count: integer;
begin
   k:=0; l:=1;
   reset(f);
   Memo1.Lines.LoadFromFile(namef);
   s := Memo1.Text;
   closefile(f);
   Memo1.Text := '';
   for i := 1 to length(s) do
       s[i] := Upcase(s[i]); // чтобы не возникали проблемы с регистром
   i:=1; j:=1;
   // Deal with it
   for n := 1 to length(s) do begin
     if (s[n] = ',') then delete(s,n,1);
     if (s[n] in eo_sentence) then begin
        inc(i);
        delete(s,n,1);
        j := 1;
     end;
     if (s[n] in Letters) then begin
        Pred[i].word[j] := Pred[i].word[j] + s[n]; 
     end;
     if not (s[n] in Letters) then begin
        inc(j);
     end;
   end;// for
   kol := i; 
   t := False;
   for i := 1 to 15 do
       if (Pred[1].word[i] <> '') then inc(k);
   count := 0;
   for i := 1 to k do begin // отсюда начинаются попытки найти нужное слово, счетчик для слов из 1-го предложения
     for j := 2 to kol do begin // счетчик начинается с 2, потому, что сравнивается 1-е предложение с другими (нач. с 2
       for l := 1 to 15 do begin
         if (Pred[1].word[i] = Pred[j].word[l]) then begin //т.к. слово должно быть в каждом предложении, то сравниваю 
            t := true;                                                  // со словами из первого предложения
            break;
         end;
       end;
       if (t = true) then begin
          inc(count);
          t := false;
       end
       else count := 0;
     end;
     if (count >= k) then Edit1.Text := Pred[1].word[1]
     else Edit1.Text := 'Такого слова нет';
     t := false;
   end;
   for i := 1 to 15 do // очистка
       for j := 1 to 15 do
           Pred[i].word[j] := '';
end;

procedure TForm1.Open1Click(Sender: TObject);
var
list:TStringList;
i:Integer;
s,b:String;
begin
Memo1.Clear;
list:=TStringList.Create;
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
if not OpenDialog1.Execute then exit;
list.LoadFromFile(OpenDialog1.FileName);
s := list.Text;
 
b := ''; // это предложение
for i := 1 to length(s) do begin
    if (not (s[i] in ['.','!','?'])) and (i < length(s)) then b := b + s[i]
    else begin        // предложение кончилось
          // удалим начальные пробелы из предложения
          while(pos(' ',b) = 1) and (length(b) > 0) do delete (b,1,1);
          // преобразуем переносы в пробелы
          b  := StringReplace(b, #13#10, ' ',[rfReplaceAll, rfIgnoreCase]);
          // удалим конечные пробелы (необязательно - это если кривой ввод)
          //while(LastDelimiter(' ',b) = 1) and (length(b) > 0) do delete (b,length(b),1);
          if b <> '' then Memo1.Lines.Add(b + s[i]);
          b := '';   // очищаем буфер для нового предложения
          continue;  // перепрыгнем через разделитель предложений
         end;
    end;
// удаление пустых строк
for i := Memo1.Lines.Count-1 downto 0 do
    if Memo1.Lines[i] = '' then Memo1.Lines.Delete(i);
 
list.Free;
end;

procedure TForm1.Find1Click(Sender: TObject);
VAR
i,k:Integer;
s,p:String;
begin
p := AnsiLowerCase(InputBox('Окно ввода','Искомое слово','ABC'));
k := 0; // счетчик слов
for i := 0 to Memo1.Lines.Count-1 do begin
    s:=AnsiLowercASE(Memo1.Lines[i]);
    if Pos(p,s) = 1 then inc(k); // если слово в начале предложения
    if pos(p,s) > 1 then begin
       if  (s[pos(p,s)-1] = ' ')    // если слово то оно между пробелами
       and (s[pos(p,s)+length(p)] in [' ',':',',']) then inc(k); // добавьте разделители
 
       if  (s[pos(p,s)-1] = ' ')    // если слово в конце
       and (pos(p,s)+length(p) = length(memo1.Lines[i])) then inc(k);
 
       end;
    end;
if k = memo1.Lines.Count then ShowMessage('В каждом!')
else ShowMessage('Не в каждом!');
 
end;

if Pos(p,s) = 1 then inc(k); // если слово в начале предложения

if (Pos(p,s) = 1) and (s[pos(p,s)+length(p)] in [' ',':',',']) then inc(k);