求問怎樣能多次抽不同的數字

想输入数值a[readln(a);]
接下來抽a个不一樣的数出来
是怎样写?
我用[for i :=0 to a do]
下面出来a个数,可是数值一模一样
需要的是出的是不一样的数,e.g.a输入6
[b:=random(20);
writeln(b)]
17
5
9
8
12
3
现在出的是
17
17
17
17
17
17