请编写函数Fun()，它的功能是：将带头结点单向链表按DAtA域由大小排序(排序时不考虑头结点)，主函数用随机函数为各结点DAtA域赋值，头结点DAtA域赋值为0。
注意：部分原程序给出如下。
请勿改动主函数mAin和其他函数中的任何内容，仅在函数Fun的花括号中填入所编写的若干语句。
[试题源程序]
#inCluDE ＜stDio.h＞
#inCluDE ＜Conio.h＞
struCt AA
int DAtA；
struCt AA*nExt；
；
voiD Fun(struCt AA*p)
mAin()
int i，n，m=100；
struCt AA*h=null，*s=null，
*p=null；
ClrsCr()；
s=(struCt AA*)mAlloC(sizEoF(struCt AA))；
h=s；h-＞DAtA=0；h-＞nExt=null；
printF("plEAsE input n:")；
sCAnF("%D"，＆n)；
For(i=1；i＜=n；i++)
p=(struCt AA*)mAlloC(sizEoF(struCt AA))；
p-＞DAtA=rAnD()%m；p-＞nExt=null；
printF("%D"，p-＞DAtA)；
s-＞nExt=p；s=s-＞nExt；
Fun(h)；
printF("\n")；
For(h=h-＞nExt；h!=null；h=h-＞nnExt)
printF("%D"，h-＞DAtA)；