Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все:

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

Заранее спасибо

ПаскальАВС.нетvar  f:text;  s,t:string;  i,n:integer;  y:boolean;  //признак наличия слова NO  function wr(c:char):boolean; //определяет, буква или нетbeginif (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=falseend;beginassign(f,'d:/file.txt');reset(f);repeat  readln(f,t);  s:=t;  y:=false;  i:=pos('NO',s);  while i>0 do    begin    n:=length(s);    if n=2 then       y:=true       else          begin          if i=1 then             begin             if wr(s[i+2])=false then y:=true;             end             else                 if wr(s[i-1])=false then y:=true;          end;    delete(s,1,i+2);    i:=pos('NO',s);    end;    if y=false then writeln(t);  until f.Eof;close(f)end.