各位帮忙下，数组随机，并输出

[foshahk]

var
s:array of string;

i:Integer;
begin
s[0]:='你拨打的电话通话中';
s[1]:='客户没有意思购买';
s[2]:='有空再说，现在很忙';
s[3]:='电话关机呢，下次联系';
s[4]:='没有打算投资呢';
s[5]:='电话无人接听呢';
s[6]:='暂时没有购买住房的打算';
Randomize;

后面不知道怎么写，随机输出其中一个字符串。谢谢

[wywry]

s[Ramdom(7)];

[doloopcn]

function Random [ ( Range: Integer) ]; 其中，参数Range为一整数， 该函数返回值也为整数，其范围为： 0< =Random(Range)< Range (指定Range) 0< =Random< 1 (不带参数Range) Random（）用来取得随机数，不过如果多运行几次会发现每次取得的随机数都是一样的。这是因为系统的随机种子没有改变，每次运行都是用同一个随机种子取的数。Ramdomize用来改变随机种子，这样每次的随机数就不同了。 例如： Randomize; 重新生成随机种子 (任何随机数生成都和随机种子有关) Random(X); 生成一个随机整数，范围在0-X之间，包括0;不包括X;

[lyhoo163]

var
   s:array of string;
   i:Integer;
   S1:string;
begin
  SetLength(S,7);
  s[0]:='你拨打的电话通话中';
  s[1]:='客户没有意思购买';
  s[2]:='有空再说，现在很忙';
  s[3]:='电话关机呢，下次联系';
  s[4]:='没有打算投资呢';
  s[5]:='电话无人接听呢';
  s[6]:='暂时没有购买住房的打算';
  Randomize;                      // 随机种子   
  i:=Ramdom(7);                   // 随机数 
  S1:=S[i];                       // 随机字符   
end;

这样，就可以了。

[foshahk]

谢谢各位，感谢版主，搞定了。