pascal中怎么样用fillchar函数来给数组赋一个很大的值，如1000，maxint,maxlongint

我就不说原理了，直接切入主题。

根据你定义的类型不同，格式也不同。
即shortint,byte->fillchar(a,sizoef(a),数值)
integer,word->fillword(a,sizoef(a) div 2,数值)
longint,longword->filldword(a,sizeof(a) div 4,数值)

数值就是你要赋值的数

这个函数是对每个字节进行赋值的，所以用于字符型数组比较方便，用于其它类型数组时，由于数组元素宽度大于1个字节，所以要达到你要的效果，不是很方便。

fillchar(a,sizeof(a),1000);
就行了，没那些事。

fillchar按字节赋值，每个字节都赋给相同的值。所以对于byte及以下的数据类型可以正常赋值，但interger及以上的数据类型中有些值是不能赋到的。
如果要想对integer及word赋值，要使用fillword(s,sizoef(s) div 2,值);
如果要想对longint及dword赋值，要使用filldword(s,sizoef(s) div 2,值);（但只能赋正数值）
其实最简单的方法还是用for语句进行赋值。