[beZ_probleM]

var check:array[1..20] of boolean;

for i:=1 to 20 do
begin
 repeat
   k:=random(20)+1;
 until check[k]=false;
 vopros[i]:=v[k];
 check[k]:=true;
end;