AVL TREES

Hey, anyone have any pascal code of an avl tree program?
I am having trouble putting one together, thanks in advance

--
[-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~_-~]
|  |                    Matthew Jacobs                   |  |  
|  |-----------------------------------------------------|  |
|  | jaco9...@cs.uidaho.edu                            |  |
|  | jaco9...@uidaho.edu                                 |  |
|  | http://www.cs.uidaho.edu/~jaco9463                  |  |
|  |-----------------------------------------------------|  |
|  | "Life is unpredictable... So live it Spontaneously" |  |
|  |_____________________________________________________|  |
-------------------------------------------------------------