Списки, делфи

[Sauber]

Помогите разобраться! Как вставить элемент в спиcок, удовлетворяющий условию: По убыванию абсолютной величины. Если можно, то с коментами, ибо не понятно что и как делает какая функция. Примерный код:

type
TInfo=real;
PElem=^TElem;
TElem=record
  info:TInfo;
  next:PElem;
  end;
p:PElem;

 while (p^.next<>nil) and(abs(p^.info)>abs(info)) do
   p:=p^.next;
     p2:=p^.next;
        new(p2);
         p^.info:=info;
   p^.next:=p^.next^.next;
  end;