Модуль CRT: Разработать программу для вывода меню

uses crt;
const kol=3;{количество пунктов меню}
      {массив названий пунктов меню}
      vybor:array[1..kol] of string=('Вариант 1','Вариант 2','Вариант 3');
      ukaz='Выбор --->';
      clear='          ';
     var i,k:byte;
    c:char;
begin
//это не обязательно, чтобы понятно было
gotoXY(25,1);
write('Порядок работы программы');
gotoXY(20,2);
write('Выбор пункта - стрелки вверх, вниз');
gotoXY(20,3);
write('Завершение программы Enter');
gotoXY(18,4);
write('Для продолжения нажмите любую клавишу');
readkey;
clrscr;
//основная программа
k:=2;
gotoXY(11,1);
writeln('Меню');
gotoXY(1,k);
write(ukaz);
for i:=1 to kol do
 begin
  gotoXY(12,i+1);
  write(vybor[i]);
 end;
hidecursor;
repeat
repeat
c:=readkey;
until c in [#13, #72, #80];
case c of
#72: begin{стрелка вверх}
     k:=k-1;
     gotoXY(1,k+1);
     write(clear);
     gotoXY(1,k);
     if k>1 then write(ukaz);
     if k=1 then
      begin
       k:=4;{если выше верха, вниз}
       gotoXY(1,2);
       write(clear);
       gotoXY(1,k);
       write(ukaz);
      end;
     end;
#80: begin {стрелка вниз}
      k:=k+1;
      gotoXY(1,k-1);
      write(clear);
      gotoXY(1,k);
      write(ukaz);
      if k=5 then
       begin
        k:=2;{если ниже низа, вверх}
        gotoXY(1,5);
        write(clear);
        gotoXY(1,k);
        write(ukaz);
       end;
      end;
#13:exit;
end;
until c=#13;
end.