tentando enteder mais não vai

dicionario.pas

@@ -27,7 +27,8 @@ program pzim;
 
 	procedure adicionar_lista(var lista : Tlista ; chave : string);
 	var
-		aux , aux2 : Tlista;
+		aux , aux_Ant , aux_Prox : Tlista;
+		temp_s : string;
 	begin
 		new(aux);
 		if
@@ -36,10 +37,21 @@ program pzim;
 		begin
 			while aux^.prox <> nil do
 				aux := aux^.prox;
-			
-			aux^.key := chave ;//			
-						
-			
+			temp_s := aux^.key;
+
+			new (aux_Ant);
+			new (aux_Prox);
+
+			if maior(temp_s , chave)then
+			begin
+				if aux^.ant <> nil then
+					aux_Ant := aux^.ant ;
+				if aux^.prox <> nil then	
+					aux_Prox := aux^.prox;
+				
+				aux^.key := chave ;//						
+				
+			end;
 		end;		
 	end; 
 
@@ -71,4 +83,4 @@ begin
 end;
 			
 begin
-end.			
+end.