get ég ekki búið til loop sem geymir tölurnar í hólfum og breytir sjálfrkafa um hólf. eitthvað í þessa átt: var:holf1,holf2,holf2,holf4…….holf40:integer; x1:=0; repeat randomize; breyta:=random(40)+1; until (breyta<>holf1)and(breyta<>holf2)…. x1:=x1+1; holfx1:=breyta; eða eitthvað solleis <BR