InsertarOrdenado.pas

Procedure InsertarOrdenado (var pri: lista; num:integer);
var
  ant,nue,act:lista;
begin
  new(nue);
  nue^.elem := num;
  nue^.sig := nil;
  
  if (pri = nil) then
    pri := nue;
  else begin
    act := pri;
    ant := pri;
  
    while (act <> NIL) and (act^.elem < nue^.elem) do begin
      ant := act;
      act := act^.sig;
    end;
  
    if (ant = act) then begin
      nue^.sig:= pri;
      pri := nue;
    end
    else begin
      ant^.sig := nue;
      nue^.sig := act;
    end;
  end;
end;