如何在Pascal中实现AVL树？

Question

我在Pascal中实现AVL树有问题。我知道如何实现普通的二叉搜索树，但不知道如何在AVL树中进行旋转。如果您能帮助我并向我展示其中的一些轮换，那就太好了。

对不起，我的英语。