il while serve x continuare a generare numeri sino a che non si becca quello giusto, peruscire dal loop con il comando break
correggo il codice:
codice:
aNumeri array [1..90]  
....
for a:=1 to 11 do
   for b:=1 to 5 do
   begin
      while true do
      begin
        nEstratto := random(90+1);
        if aNumeri[nEstratto] <> -1 then
        begin
           tab[a,b] := nEstratto;
           aNumeri[nEstratto] := -1;
           break;
        end;
     end;
  end;
N.