removes an element in a position in linked lists "problem"

procedure sup_k(var t:list);
   var
         n:list;
   begin
           if t=nil then writeln('Il n''y a pas d''element')
       else begin
           if t^.suiv=nil then dispose(t)
           else
           begin
           p:=pos(t);
           if p^.suiv=nil then writeln('Il n''y a pas ce element que vous voulez supprimer')
           else if p^.suiv^.suiv=nil then sup_q(t)
           else
           n:=p^.suiv;
           p^.suiv:=n^.suiv;
           n:=n^.suiv;
           n^.pred:=p;
           n:=n^.pred;
           dispose(n);
           end;
      end;
   end;