Сгенерировать случайным образом и вывести на экран 11 окон разного цвета. Сгенерировать последовательность звуков, представляющих гамму. Создать комби

Uses CRT,DOS;
Var
 SPISOK:array[1..3] of string[7];
 kod,kod1  :  char;
 n,i,p   :   byte;
{процедура регулирования размера курсора}
Procedure CURS(size:word);
Var   Regs : Registers;
begin
   With Regs do
       begin
    AH:=$01;
    CH:=Hi(size);
    CL:=Lo(size);
    Intr($10,Regs)
       end
end;
{процедура вывода информации по выбранному пункту меню}
Procedure findd(n:byte);
begin
Textmode(3);
Window(1,1,80,25);
TextBackGround(Black);
ClrScr;
{анализ номера выбранного пункта меню}
case n of
1: begin {вывод информации для пункта 1} end;
2: begin {вывод информации для пункта 2} end;
3: exit 
end;
readln;
Curs($0607)   {восстановить стандартный размер курсора}
end;
{процедура оформления меню и обработки нажатой клавиши}
Procedure oformenu;
begin
p:=1; i:=1;
Repeat
    {построение пунктов меню}
     if i=n then
               begin
                TextBackGround(Blue);
                Textcolor(LightGray)
               end
            else
              begin
               TextBackGround(Lightgray);
               Textcolor(Blue);
              end;
         gotoxy(1,i);
         writeln(SPISOK[i]); {вывод текста пунктов меню}
      inc(i);
         inc(p)
until p>3;
    kod:=ReadKey;
  CASE kod of
  #13: begin          { обработка клавиши Ввод}
           findd(n);
           exit
        end;
  #0: begin
           kod1:=ReadKey;
           {обработка нажатия клавиш ^, v}
            Case kod1 of
              #72:    if n>1  then dec(n)
                              else n:=3;
              #80:    if n<3   then inc(n)
                              else n:=1;
           end;
          oformenu;   {рекурсивный вызов процедуры}
      end
 else    oformenu
  end;
end;
BEGIN   {основная программа}
SPISOK[1]:='Данные '; 
SPISOK[2]:='Справка'; 
SPISOK[3]:=' Выход ';
TextBackGround(Black); {установка  цвета фона}
Textcolor(Lightgray);  {установка цвета шрифта}
ClrScr;                    {очистка окна}
Window(35,10,43,13);       {задание окна для меню}
n:=1; {указатель номера выбранного пункта меню}
Curs($2000);  {удаление изображения курсора}
oformenu; {вызов процедуры оформления меню}
END.

Uses CRT;
Const
GAMMA : array[1..8] of integer=(262,294,330,349,392,440,494,524);
Var   j:byte;
BEGIN{Проигрываем гамму}
j:=1;
Repeat
Sound(GAMMA[j]);   {запускаем звук}
Delay(400);          {задержка}
Nosound;              {выключаем звук}
if j=8 then
               begin
                j:=1;
                delay(1000)
               end;
Inc(j)
Until KeyPressed       {завершаем цикл при нажатии клавиши }
END.

Uses CRT;
Var      X,Y,k,j:byte;
BEGIN
     Randomize; {Инициализация генератора случайных чисел}
     j:=0;
     For k:=1 to 11 do
        begin
            TextBackGround(j);{установка цвета фона}
            ClrScr;           {очистка окна}
            if LightGray=j then j:=0
            else inc(j); {изменениe цвета фона от 0 - Black  - до 7 - LightGray }
            X:=Random(80)+1;
            Y:=Random(25)+1;
            Window(X,Y,X+random(5),Y+random(5))   {определение окна}
         end;
     Readln
END.