В тексте, содержащем несколько (много) предложений, найти все вхождения заданного слова и распечатать все ключевые его предложения. - Pascal

uses crt;
const rz=[' ',',','.',';',':','?','!','-'];//разделители слов, можно добавить
var s,sl,s1,s2:string;
    i,j,k,p:byte;
begin
clrscr;
repeat
writeln('Введите текст из нескольких предложений, оканчивающихся точкой');
readln(s);
if s[length(s)]<>'.' then writeln('Вы не поставили точку в конце текста!');
until s[length(s)]='.';
writeln('Введите слово для поиска');
readln(sl);
writeln('Номера позиций вхождения данного слова в текст:');
k:=0;
for i:=1 to length(s) do
//если все символы совпадают со словом и оно или первое или последнее или отделено разделителями
if (copy(s,i,length(sl))=sl)and((i=1)or(s[i-1] in rz))
 and((i=length(s)-length(sl)+1)or(s[i+length(sl)] in rz)) then
  begin
   write(i,' ');//выводим индекс начала слова
   k:=1;//фиксируем наличие
  end;
writeln;
if k=0 then write('Нет ни одного вхождения заданного слова!')
else//если есть это слово
 begin
  writeln('Предложения, содержащие заданное слово:');
  while pos('.',s)>0 do//пока есть точки
   begin
    s1:=copy(s,1,pos('.',s));/копируем первое предложение
    for i:=1 to length(s1) do//также ищем вхождение
    if (copy(s1,i,length(sl))=sl)and((i=1)or(s1[i-1] in rz))
    and((i=length(s1)-length(sl)+1)or(s1[i+length(sl)] in rz)) then
    writeln(s1);//если есть, выводим предложение
    delete(s,1,pos('.',s));//удаляем это предложение, следующее первое
   end;
 end;
readln
end.