Помогите Turbo Pascal Выведите на экран 16 случайных чисел 16-ю различными

Turbo Pascal темный экран и так (по умолчанию)

Turbo Pascal темный экран и так (по умолчанию)

Uses crt;
var
i,a:integer;
    begin   
          for i:=1 to 16 do       
              begin         
                  textcolor(i);       
                     a:=random(50);         
                     write(a);       
                     sound(I*100);         
                     delay(5000);       
                     nosound;       
             end;   
readkey;
end.