Консольное меню

uses crt;
const
  MENU_X = 15;
  MENU_Y = 5;
  MENY_ITEMS = 5;
 
procedure DrawMenu(x, y: integer);//osnova
begin
  ClrScr;
  gotoxy(x, y); write('Комплексные числа');
  gotoxy(x, y + 1); write('Комплексные матрицы');
  gotoxy(x, y + 2); write('Комплексные векторы');
  gotoxy(x, y + 3); write('Вектора');
  gotoxy(x, y + 4); write('Exit');
end;
 
function SelectMenu(x, y, count: integer): integer;
var
  i, current, key: integer;
begin
  current := 1;
  while true do 
  begin
    // Нарисовать
    for i := 1 to count do 
    begin
      gotoxy(x, y + i - 1);
      write(' ');
    end; 
    gotoxy(x, y + current - 1);
    write('>');
    
    // Обрабатывает нажатые клавиши
    key := Ord(ReadKey);
    if key = 13 then break; // Прерывание цикла
    if key = 38 then current := current - 1;
    if key = 40 then current := current + 1;
    if current <= 0 then current := count;
    if current > count then current := 1;
  end;
  Result := current;
end;
 
var
  n,j: integer;
  run: boolean; a,nrm,scl:real;
  u, v,w: Complex;  
  b,c,e:  Matrix;
  l,m,k: Cvector;   
  x,y,z:vector;
  label 1;
begin
  run := true;
  while run do 
  begin
    1:DrawMenu(MENU_X, MENU_Y); // Рисует меню 
    n := SelectMenu(MENU_X - 2, MENU_Y, MENY_ITEMS); // Возвращает пункт меню
    if n = 1 then   //здесь первое подменю
    if n = 2 then   //здесь второе подменю
    if n = 3 then   //здесь третье подменю
    if n = 4 then    //здесь четвертое подменю
    if n = 5 then run := false;
  end;
end.