Разработать программу вывода на экран меню следующего вида

uses crt;
const kol=3;{количество пунктов меню}
      {массив названий пунктов меню}
      vybor:array[1..kol] of string=('Режим 1','Режим 2','Режим 3');
var i,k:byte;
    c:char;
begin
textbackground(0);
textcolor(15);
clrscr;
writeln('Меню');
for i:=1 to kol do
writeln(vybor[i]);
k:=5;
repeat
repeat
c:=readkey;
until c in [#13, #72, #80];
if c in [#72,#80] then
 begin
  sound(600);
  delay(500);
  nosound;
 end;
case c of
#72: begin{стрелка вверх}
     k:=k-1;
     if k=1 then k:=4;{если выше верха, вниз}
     for i:=1 to kol do
      begin
       if i=k-1 then{выделенный пункт}
        begin
         textbackground(3);
         textcolor(9);
        end
       else{остальные}
        begin
         textbackground(0);
         textcolor(15);
        end;
     gotoXY(1,i+1);
     write(vybor[i]);
     end;
    end;
#80: begin {стрелка вниз}
      k:=k+1;
      if k=5 then k:=2;{если ниже низа, вверх}
      for i:=1 to kol do
       begin
        if i=k-1 then{выделенный пункт}
         begin
          textbackground(3);
          textcolor(9);
         end
        else{остальные}
         begin
          textbackground(0);
          textcolor(15);
         end;
        gotoXY(1,i+1);
        write(vybor[i]);
       end;
     end;
#13:begin
    gotoXY(35,13);
    textbackground(6);
    textcolor(1);
    write('Выбран режим ',k-1);
    readln;
    exit;
    end;
end;
until c=#13;
readln
end.