Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все: 1. Вывести на экран те строки файла, которые не содержат слово NO Заранее спасибо

ПаскальАВС.нет var   f:text;   s,t:string;   i,n:integer;   y:boolean;  //признак наличия слова NO   function wr(c:char):boolean; //определяет, буква или нет begin if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false end; begin assign(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.