Создание меню в графическом режиме

procedure menu;
    var
       i:integer;
       mas:array [1..7] of string;
    begin
      mas[1]:='Просмотр пользователей';
      mas[2]:='Добавление пользователей';
      mas[3]:='Удаление пользователей';
      mas[4]:='Редактирование пользователей';
      mas[5]:='Архив';
      mas[6]:='История изменения';
      mas[7]:='Завершение работы';
    for i:=1 to 7 do 
      begin
        Textout(300,60*i,mas[i])
      end;
    end;

uses graphABC,Events;
var k:byte;
procedure menu(var k:byte);
var i:integer;
    mas:array [1..7] of string;
begin
clearwindow;
mas[1]:='Просмотр пользователей';
mas[2]:='Добавление пользователей';
mas[3]:='Удаление пользователей';
mas[4]:='Редактирование пользователей';
mas[5]:='Архив';
mas[6]:='История изменения';
mas[7]:='Завершение работы';
Textout(50,1,' ');
for i:=1 to 7 do
Textout(50,30*i,mas[i]);
SetPenColor(clRed);
SetBrushStyle(bsClear);
rectangle(40,k*30-10,220,k*30+20)
end;
procedure KeyDown(key:integer);
begin
case key of
VK_Up:begin
      dec(k);
      if k=0 then k:=7;
      menu(k);
      redraw;
      end;
VK_Down:begin
        inc(k);
        if k=8 then k:=1;
        menu(k);
        redraw;
        end;
VK_Return:begin
          unlockdrawing;
          clearwindow;
          textout(100,100,inttostr(k))
          end;
else exit;
end;
end;
begin
k:=1;
menu(k);
lockdrawing;
onkeydown:=KeyDown;
end.