Pascal Question F.4 (Urgent) 急啊~~

What is the purpose of the repeat loop from the following?
var.........
begin
...
for k:=1 to 6 do
begin
repeat
n:=random(40);
until a[n]=0;
a[n]:=1
end;
...
end.