PROGRAM INF93B(OUTPUT);                                     
 TYPE ELEMENT=RECORD                                        
               INFO:INTEGER;                                
               VORG,NACHF:^ELEMENT                          
              END;                                          
      ELEMPTR= ^ ELEMENT;                                   
PROCEDURE INSERT (VORG, NEUELEM: ELEMPTR);                  
BEGIN                                                       
 IF VORG=NIL THEN                                           
  BEGIN NEUELEM^.NACHF:=NEUELEM; NEUELEM^.VORG:=NEUELEM END 
 ELSE                                                       
  BEGIN                                                     
   VORG^.NACHF^.VORG:=NEUELEM;                              
   NEUELEM^.NACHF:=VORG^.NACHF;                             
   VORG^.NACHF:=NEUELEM;                                    
   NEUELEM^.VORG:=VORG                                      
  END                                                       
END;                                                        
                                                            
BEGIN END.