出错程序段：var city:array[1..50]of string;
year:array[1..50]of string; -----前面的定义
year:=copy(city[i],y,len); ------后面的程序（出错的地方）
nba.pas(21,9) Error: Incompatible types: got "ShortString" expected "Array[1..50] Of ShortString" ——问题框
copy(st,pos,num)的功能就是函数返回st字符串中的一个 从位置pos开始的，包含num个字符的子字串
而你的year是个字符串数组，并不是字符串，不能采用copy函数
只能用year[i]表示该数组的某个变量（字符串）
var city:array[1..50]of string;
year:array[1..50]of string; -----前面的定义
year:=copy(city[i],y,len); ------后面的程序（出错的地方）
city[i] ——字符串，这是个纯正的字符串
year ——数组，以字符串为单元
copy指令 ——一个函数，返回值为字符串
显然，把数组赋值为字符串是错误的，你大概把year当字符串了