因为键盘缓冲区会保留你之前输入的部分内容，比如回车等，所以当你read字符时容易出现这种问题。建议用repeat until keypressed; ch:=readkey;替换你的read语句。
没蕃故人(张籍)
