Задача на двусвязные списки pascal

[(Нафаня)]

После 1-го эл-та двусвязного списка вставить новый элемент в поле info которого максимальный элемент порядок следования цифр в котором сменен на противоположный. Помогите пожалуйста доделать. Ничего не лезет в голову

type 
  telem=integer;
  List=^Node;
  Node=record
            info:telem;
            left,right:List;
          end;
var
  Q,p,pmax:List;

begin
  if Q^.left=nil then
    begin
       p:=Q.info;
       pmax:=Q;
       while p<>nil do
          if p^.info>pmax^.info then pmax:=p;
       {сменить цифры в элементе на противоположный}
       if Q^.info>0 then
            {добавляем элемент}

[Stilet]

Погоди-ка, а где создание и внесение данных в сам список?

[VIK_aka_TOR]

давайте ка расшифруем условие...
после первого элемента списка вставить максимальную число максимальной продолжительности смены знака
>0 <0 >0 <0 и т.д. ттак?... и что делать с нулем... за какой его брать... положительный или отриц... или же на нем серия тоже может остановиться?...