delphi 自定义固定几个数字、字符的随机算法

function RandNumA :string;

 var

sz:array[ 0..3] of string;

i,j,p:Integer;

tem:string;

begin

sz[0]:='70';

sz[1]:='80';

sz[2]:='90';

Randomize;

i:=Random(3);

Result:=sz[i];

end;