[size=1][size=6]var
i:longint;
f:text;
begin
assign(f,'count,in');
rewrite(f);
randomize;
for i:=1 to 1000 do begin
writeln(f, random(100));
end;
close(f);
end.
通过上述程序生成的数据文件，自己编制程序统计文件中每个数据出现的次数。按照从小到大的顺序输出到count.out 文件中
格式为：
3     12   
{表示出现了12次} 
5     20

请那位高手指点一下，谢谢了！
拜托各位了