Сравним:## Код:
```
li := w.firstLine;
LOOP
   IF li = NIL THEN EXIT ELSIF y1 + li.height >= y THEN RETURN TRUE END;
   INC (y1, li.height); li := li.next;
END;
RETURN FALSE
```
## Код:
```
li := w.firstLine;
WHILE (li # NIL) & ~(y1 + li.height >= y) DO
   INC (y1, li.height); li := li.next;
END;
RETURN li # NIL
```
