这个一般都是给动态数组分配长度的，最初这句话一般只是初始化动态数组的长度，当动态数组长度又有改变时，就继续用这个函数进行再次分配。

这个函数有两个功能
一个是设置数组的长度 
如 VAR 
A:ARRAY[1.100] OF INTEGER;
那么执行   setlength(a,10);
以后就和  
A:ARRAY[1..10] OF INTEGER;
一样

还有一个功能是设置字符类型变量的长度
如
VAR 
S:STRING;
那么S的长度是256(默认);
执行SETLENGTH(A,10)以后其长度就成了一个只能放10个字符的STRING;