Вывести на экран те строки файла, которые не содержат слово NO

Program poisk;
uses crt;
const n=6;       {Количество строк}
var
 f          :text;
  i , x1    :integer;
   s1       :string;
    Chr     :string;
 begin
  clrscr;
    assign(f,'poisk.txt');   {Присваиваем переменную к файлу}
     rewrite(f);         {Операция начала записи в файл}
      for i:=1 to n do   {Наполнения файла}
       begin
        writeln('Vvedite stroku ',i);
         readln(s1);
        writeln(f,s1);   {Запись в файл}
       end;
        close(f);            {Закрываем файл}
         assign(f,'poisk.txt');  {Присваиваем переменную к файлу}
          reset(f);          {Операции чтения файла}
           writeln;
           write('Vvedite slovo: ');  
          readln(Chr);             {Вводим нужное слово для поиска}
         writeln;
        while not eof(f) do        {Цикл с выходом, после окончания файла}
         begin
          readln(f,s1);            {Читаем файл}
           x1:=pos(Chr,s1);        {Приравниваем слово к нашей строке}
            if (x1 > 0) then       {Если значения 0 значит слова не совпали}
             begin
              writeln('Stroka soderzhit slovo "',Chr,'"');         {Выводим сообщения и наше слово}
             end else                
            writeln('Stroka ne soderzhit slovo "',Chr,'" :',s1);   {Выводим сообщения, слово и нашу строку}
           end;
          close(f);                {Закрываем файл}
end.

  
Program poisk;
uses crt;
var
 f          :text;
  i , x1    :integer;
   s1       :string;
    Chr     :string;
 begin
       assign(f,'poisk.txt');  {Присваиваем переменную к файлу}
          reset(f);          {Операции чтения файла}
           writeln;
           write('Vvedite slovo: ');  
          readln(Chr);             {Вводим нужное слово для поиска}
         writeln;
        while not eof(f) do        {Цикл с выходом, после окончания файла}
         begin
         writeln('---------------------------------------------------');
          readln(f,s1);            {Читаем файл}
           x1:=pos(Chr,s1);        {Приравниваем слово к нашей строке}
            if (x1 > 0) then       {Если значения 0 значит слова не совпали}
             begin
              writeln('Stroka soderzhit slovo "',Chr,'"');         {Выводим сообщения и наше слово}
             end else                
            writeln('Stroka ne soderzhit slovo "',Chr,'" :',s1);   {Выводим сообщения, слово и нашу строку}
           end;
          close(f);                {Закрываем файл}
end.