Создать горизонтальное меню

uses crt;
CONST
m:array[1..5] of string=('Имя файла    ',
                         'Создать      ',
                         'Посмотреть   ',
                         'Редактировать',
                         'Выход        ');
VAR
  i,x,y,num:integer;
  c:char;
begin
  ClrScr;
  x:=30; y:=10;
  num:=1;
  repeat
    for i:=1 to 5 do
    begin
      gotoXY(x,y+i);
      if i=num
        then begin textColor(0); textBackGround(15); end
        else begin textColor(15); textBackGround(0); end;
    write(m[i]);
end;
c:=readkey;
case c of
#72: if num=1 then num:=5 else dec(num);
#80: if num=5 then num:=1 else inc(num);
end;
until c=#27;
END.

uses crt;
const Kol=9;
type mas = array [1..Kol] of string[20];
const stor: mas = ('  1  ','  2   ','  3  ','  4  ','  5  ','  6  ','  7  ','  8  ','Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
  for i:=1 to Kol do
   begin
     if I=K then
      begin
         textbackground(3);
         textcolor(12);
      end
     else
      begin
         textbackground(0);
         textcolor(15)
      end;
     gotoxy(5*(i-1)+1,1);
     write(stor[i]);
   end;
  repeat
  kod:=readkey;
  until Kod in [#13, #75, #77];
  case Kod of
  #75: begin  K := K-1; if K = 0 then K := Kol;
       end;
  #77: begin K :=K+1;  if K =10 then K := 1; end;
   end;
 until Kod = #13 ;
 
end;
begin
 repeat
   textbackground(0);
   textcolor(15);
   PrintMenu(K);
   clrscr;
   textbackground(0);
   textcolor(15);
   if k<9 then
    begin
     write('vybran variant ',k); readln;
    end
   else exit;
   case K of
   1: {procedure 1};
   2: {procedure 2};
   end;
 until k = 9;
end.