课外小组的同学研究的课题是测定贝壳中碳酸钙的质量分数，他们取25g贝壳粉碎后放入烧杯中，向杯中倒入稀盐酸，当倒入100g稀盐酸后发现不再产生气泡，并测得烧杯内固体和液体总质量为120.6g （杂质不反应）。求贝壳中碳酸钙的质量分数。

已知在文件IN2.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)、产品名称mc(字符型10位)、单价dj(整型)、数量s1(整型)、金额je(长整型)五部分组成。其中：金额=单价×数量。函数ReadDat()的功能是读取这 100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品名称从大到小进行排列，若产品名称相同，则按金额从小到大进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT2.DAT中。
注意：部分源程序已给出。请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。
【试题程序】
#include ＜stdio.h＞
#include ＜memory.h＞
#include ＜string.h＞
#include ＜conio.h＞
#include ＜stdlib.h＞
#define MAX 100
typedef struct
char dm[5];/*产品代码*/
char mc[11]; /*产品名称*/
int dj; /*单价*/
int sl; /*数量*/
long je; /*金额*/
PRO;
RO sell[MAXI;
void ReadDat();
void WriteDat();
void SortDat()



void main()

memset(sell,0 sizeof(sell))
ReadDat();
SortDat();
WriteDat();

void ReadDat(

FILE *fp;
char str[80], ch[11];
int i;
fp=fopen("IN2.DAT","r");
for(i=0;i＜100;i++)

fgets(str, 80, fp);
memcpy(sell [i] .dm, str, 4);
memcpy(sell [i] .mc,str+4,10);
memcpy(ch,str+14,4);ch[4]=0;
sell [i] .dj=atoi(ch);
memcpy (ch, str+18, 5); ch[5]=0;
sell [i] .sl=atoi(ch);
sell [i] .je=(long)sell [i] .dj*sell [i] .sl;
fclose(fp);

void WriteDat(void)

FILE *fp;
int i;
fp=fopen("OUT2.DAT","w");
for(i=0;i＜100;i++)
fprintf(fp,"%s %s %4d %5d %101d\n", sell [i] .dm, sell [i] .mc, sell [i] .dj, sell [i] .sl sell [i] .je);
fclose(fp);