怎样实现从0到3中随机输出一个数，输出4次（0到3各一次）,该怎么解决

怎样实现从0到3中随机输出一个数，输出4次（0到3各一次）
怎样实现从0到3中随机输出一个数，输出4次（0到3各一次）
帮帮小弟，谢谢了。

[解决办法]
var
iSet: set of 0..3;
iTmp, iIndex: Integer;
iOutputArray: array [0..3] of Integer;
begin
iSet := [0, 1, 2, 3];
iIndex := 0;
while iSet <> [] do
begin
iTmp := random(4);
if iTmp in iSet then
begin
iOutputArray[iIndex] := iTmp;
iSet := iSet - [iTmp];
iIndex := iIndex + 1;
end;
end;
for iTmp := 0 to 3 do
ShowMessage(IntToStr(iOutputArray[iTmp]));
end;