{Винарский 16_23_е}
procedure otrelem(L: list);
var q,p: list; t: boolean;
  begin
    if(L<>nil) then
      begin
        p:=L;
        t:=false;
        while((p^.next<>nil) and (p^.next^.elem>0) and (not(t))) do
          p:=p^.next;
        if(p^.next<>nil) then
          begin
            q:=p^.next;
            p^.next:=q^.next;
            dispose(q);
            t:=true;
          end;
      end;
  end;