Нужно сделать меню и подключить к нему 4 программы с процедурами - Pascal ABC

Формулировка задачи:

Есть 4 программы(если нужно скину), нужно написать меню, в котором с помощью процедур можно будет вызвать любую из этих 4 программ. Скажем запускается меню: 1.Комплексные числа 2. Умножение 3. Вычитание 4. Деление 5. Выход. Вот пользователь выбирает 1 и у него запускается программа 1. Очень срочно, спасибо!

Решение задачи: «Нужно сделать меню и подключить к нему 4 программы с процедурами»

Листинг программы

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;
  repeat
  kod:=readkey;
  until kod in [#13, #75, #77];
  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;
  end;
 until kod in [#13];
 textbackground(15);
end;
 
var k:byte;
begin
 repeat
   Menyu(k,5);{выводим меню}
   case k of{выбираем стрелками действие}
   1:begin
     clrscr;
     writeln('Выбрана программа Комплексные числа');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   2:begin
     clrscr;
     writeln('Выбрана программа Умножение');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   3:begin
     clrscr;
     writeln('Выбрана программа Вычитание');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   4:begin
     clrscr;
     writeln('Выбрана программа Деление');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   end;
 until k=5;
end.

Объяснение кода листинга программы

У программы есть 4 подпрограммы для работы с комплексными числами, умножением, вычитанием и делением.
Есть массив из 5 строк с названиями пунктов меню.
В главной программе есть переменная k для отслеживания текущего выбранного пункта меню и переменная kol для количества пунктов меню.
В функции Menyu происходит вывод меню на экран, обработка выбора пользователя с помощью стрелок на клавиатуре и вызов соответствующих подпрограмм в зависимости от выбора.
В основной программе после вывода меню пользователю предлагается ввести число для выбора соответствующей подпрограммы.
После выбора подпрограммы и выполнения необходимых операций программа возвращает пользователя в главное меню.
При выборе пункта меню Выход программа завершается.