Помогите 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.