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

+ 0 -

Olegpodlesnov

31 авг. 2014 г., 1:09:47 (9 лет назад)

ПаскальАВС.нет

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.