Создание системы меню

uses crt;
{массив названий пунктов меню}
const vybor:array[1..5] of string=('1-Электрическая',
                                   '2-Гидравлическая',
                                   '3-Пневматическая',
                                   '4-Кинематическая',
                                   '5-Выход');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(2);
         textcolor(1);
      end
     else
      begin
         textbackground(7);
         textcolor(0)
      end;
     gotoxy(18*(i-1)+1,1);
     write(vybor[i]);
   end;
  writeln;
  textbackground(0);
  textcolor(15);
  write('Для выхода можно нажать Esc..');
  repeat
  kod:=readkey;
  until kod in [#32, #75, #77,#27];
  case kod of
  #77: begin  {стрелка влево}
       k:=k-1;
       if k=0 then k:=kol;{если левый край, в конец}
       end;
  #75: begin  {стрелка вправо}
       k:=k+1;
       if k>kol then k:=1;{если правый край, в нaчало}
       end;
  #27:begin{возможность выхода по Esc}
      k:=5;
      exit;
      end;
  end;
 until kod in [#32,#27];
end;
 
var k:byte;
begin
textbackground(3);
textcolor(14);
clrscr;
gotoXY(30,11);
write('ВЫБОР  ВИДА  СХЕМЫ');
gotoXY(10,12);
write('перемещение по меню стрелки впрво и влево, выбор клавиша пробел');
gotoXY(32,13);
write('нажмите Enter');
readln;
repeat
   Menyu(k,5);{выводим меню}
   case k of{выбираем стрелками действие}
   1:begin
     clrscr;
     writeln('Выбран тип системы электрическая');
     write('нажмите Enter');
     readln;
     end;
   2:begin
     clrscr;
     writeln('Выбран тип системы гидравлическая');
     write('нажмите Enter');
     readln;
     end;
   3:begin
     clrscr;
     writeln('Выбран тип системы пневматичемкая');
     write('нажмите Enter');
     readln;
     end;
   4:begin
     clrscr;
     writeln('Выбран тип системы кинематическая');
     write('нажмите Enter');
     readln;
     end;
   end;
 until k=5;
end.