Как сделать красиво?, Как быть с последним элементом списка? Опции

[Australian Aborigen]

Составить процедуру, которая из списка удаляет элементы, значения которых лежат в интервале [N1,N2]
Все сделал, но возник вопрос:
Все циклы обработки я пишу через While, т.е.

While r^.next<>nil do

Но когда он дойдет до последнего элемента, он не будет его обрабатывать, т.к.

r^.next=nil

Как обойти это, чтобы не писать после цикла отдельную обработку последнего элемента?
Там, конечно, всего пара строк, но получается некрасиво.

[volvo]

А почему While r^.next <> nil ? Чем вот такой вариант не устраивает:

p := { начало списка }
While p <> nil Do Begin
  { Здесь - твои действия }
  p := p^.next;
End;

?

[Australian Aborigen]

Пасиб
А то, блин, парюсь фиг знает сколько
а тут все так просто