Turbo pascal выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.

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.