已知數據文件IN.dat中存有300個舊位數，并已調用讀函數Rdata0把這些數存入數組a中，請編寫函數ditiNum()，其功能是：求出千位數上的數減百位數卜．的數減十位數上的數減個位數上的數人于0的個數count，再把所有滿足此條件的陰位數依次存入數組b中，然后對數組b的四位數按從小到大的順序進行排序。最后調用寫函數Wdata()，把結果輸出到OUT.dat文件中。

　　例如，9123，9-1-2-3>0，則該數滿足條件存入數組b中，滿足條件count加1。9812，9-8-1-2<0，則該數不滿足條件，count不變。

　　注意：部分源程序已經給出。程序中已定義數組a[300]、b[300]，已定義變量count。請勿改動主函數main()、讀函數Rdata()和寫函數Wdata()的內容。