разработка меню

Создать меню, которое имеет главное меню:
 
|Ввод данных|    |Метод сортировки|     |Сравнительные результаты|  |Выход|
 
Падающее меню:
 
|В массив|         |Быстрая сортировка|  |Быстрая сортировка|  
 
 
|В файл   |          |Метод Шелла|            |Метод Шелла|
 
                         |Метод пузырчика|       |Метод пузырчика|
 
В пункте "ввод данных" вводится одноизмерный массив. В пункте "Метод сортировки" массив надо отсортировать в зависимости от метода. Пункт "Сравнительные результаты" выводит отсортированный массив, характеристики: срок сортировки, количество перестановок.

uses crt;
const
    mas:array[1..4,1..4] of string =
    ((' vvod dannih ',' metod sortirovki ',' sravnitelnie rezultati ',' exit '),
     ('  v massiv   ','  quick sort      ','  quick sort            ',''),
     ('  v file     ','  metod shell     ','  metod shell           ',''),
     (''             ,'  metod puzir     ','  metod puzir           ',''));
 
procedure vvod(str:string;x,y,color:integer);
begin
   textbackground(color);
   textcolor(white);
   if str <> '' then
   begin
    gotoxy(x,y);
        write(str);
    gotoxy(x,y);
   end;
end;
 
procedure clear(n:integer);
var
    i,j:integer;
begin
   for i:=2 to 4 do
   for j:=n to n+25 do
   begin
      textbackground(1);
      gotoxy(j,i);
    write(' ');
   end;
end;
var
   key:char;
   masl:array[1..4] of integer;
   x,y:integer;
   i,j:integer;
begin
  textbackground(9);
  clrscr;
  i:=1;
  masl[1]:=1;
  masl[2]:=length(mas[1,1])+2;
  masl[3]:=length(mas[1,1])+length(mas[1,2])+3;
  masl[4]:=length(mas[1,1])+length(mas[1,2])+length(mas[1,3])+4;
  vvod(mas[i,1],1,i,2);
  vvod(mas[i,2],masl[2],i,3);{15}
  vvod(mas[i,3],masl[3],i,3);{34}
  vvod(mas[i,4],masl[4],i,3);{59}
  key:='0';
  j:=1;
  gotoxy(1,1);
  while ord(key)<>27 do
  begin
    key:=readkey;
    if(ord(key)=77)then
    begin
        i:=1;
      clear(masl[j]);
      if j<4 then
      begin
        j:=j+1;
        vvod(mas[i,j-1],masl[j-1],i,3);
        vvod(mas[i,j],masl[j],i,2);
      end else
      begin
        i:=1;
        vvod(mas[i,4],masl[4],i,3);
        vvod(mas[i,1],masl[1],i,2);
      end;
 
    end;
    if(ord(key)=75)then
    begin
      clear(masl[j]);
        i:=1;
      if j>1 then
      begin
        j:=j-1;
        vvod(mas[i,j+1],masl[j+1],i,3);
        vvod(mas[i,j],masl[j],i,2);
      end else
      begin
        j:=4;
        vvod(mas[i,1],masl[1],i,3);
        vvod(mas[i,4],masl[4],i,2);
      end;
    end;
    if (ord(key)=80) and (j<>4) then
    begin
        x:=1;
      while (mas[x,j]<>'')and (x<5) do
        begin
            vvod(mas[x,j],masl[j],x,3);
         x:=x+1;
      end;
      if i<x-1 then
      begin
            i:=i+1;
        vvod(mas[i-1,j],masl[j],i-1,3);
         vvod(mas[i,j],masl[j],i,2);
      end else
      if j<>4 then
      begin
        vvod(mas[i,j],masl[j],i,3);
        i:=2;
        vvod(mas[i,j],masl[j],i,2);
      end;
    end;
    if (ord(key)=72) and (i<>1) and (j<>4) then
    begin
      if i>2 then
      begin
            i:=i-1;
        vvod(mas[i+1,j],masl[j],i+1,3);
         vvod(mas[i,j],masl[j],i,2);
      end else
      begin
        vvod(mas[i,j],masl[j],i,3);
        i:=x-1;
        vvod(mas[i,j],masl[j],i,2);
      end;
    end;
    if ord(key)=13 then
    begin
      if (j=4) and (i=1) then key:=chr(27);
    end;
  end;
end.