1、
type 
     stMyHZ= record
     Code: String[11];
     HZ:String[2];
end;type TMyFile = file of stMyHZ;
建立一个TMyFile类型文件,将所有汉字及编码按编码排序后写入文件。2、程序启动时将文件中所有数据读出,并存放在一个数组中 arrHZ: array of stMyHZ中
3、接受输入并在arrHZ中检索