来晚了，但是可以纠正错误：
var F:TextFile;
CH:Char;
...
//读没有问题
assignfile(F,文件名);
reset(F);
read(F,CH);//读一个字符
readln(F,buff);//读一行
...
//写，刻有问题了,应该为：
// 开始改动:
assignfile(F,文件名);
if fileexists(文件名) then
append(F);
else
rewritet(F); // 新建立
// 结束改动:
write(F,CH);//写一个字符
writeln(F,内容);写内容，换行
//关闭
closefile(F);
