动态数组基于零。你应该从零循环到
Nemp-1
。或者从零循环到
High(employee)
。
正如@Rudy和@trincot指出的那样，要读取长度
employee
数组，使用
ReadLn(Nemp)
避免不必要的输入效果。
一个提示：
调试时在编译器中启用范围和溢出检查。那会在高范围内检测到错误。