Сортировка массива несколькими методами - Pascal ABC

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

Здравствуйте! У меня поставлена задача отсортировать одномерный массив 4мя разными методами. Не могли бы вы подсказать каким способом я смогу это сделать в одной программе? Алгоритмы сортировки я знаю, их не надо писать.Спасибо.

Решение задачи: «Сортировка массива несколькими методами»

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

Var k : integer;
begin
repeat
      Writeln('1 - сортировка один');
      Writeln('2 - сортировка два');
      Writeln('3 - сортировка три');
      Writeln('4 - сортировка четыре');
      Writeln('5 - выход');
      Readln(k);
      case k of
           1: //заполнение массива, отображение, сортировка
           2: //заполнение массива, отображение, сортировка
           3: //заполнение массива, отображение, сортировка
           4: //заполнение массива, отображение, сортировка
      end;
until (k = 5);
end.

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

В данном коде объявлена переменная k типа Integer, которая будет использоваться для выбора пункта меню. Последовательность действий в коде представлена в виде цикла repeat-until, который выполняется до тех пор, пока значение переменной k не станет равным 5. Внутри цикла выводятся пункты меню, которые представлены числами от 1 до 5, а также описания этих пунктов. После ввода значения переменной k с клавиатуры, происходит проверка этого значения. Если значение равно 1, то выполняется блок кода, соответствующий этому пункту меню. Этот блок кода включает в себя заполнение массива, отображение массива и его сортировку. Аналогично обрабатываются пункты меню 2, 3 и 4. После выполнения всех пунктов меню, значение переменной k считывается снова, и цикл повторяется. Цикл продолжается до тех пор, пока значение переменной k не станет равным 5, что соответствует выходу из программы.