Изменить начальную программу - PascalABC.NET

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

Всем Доброго Вечера), помогите изменить начальную программу(PASCAL). Дано такое задание: Дан одномерный массив. Переставить в обратном порядке элементы массива, расположенные между минимальным и последним элементами. Т.е должно получиться следующее: 1 2 3 4 5 1 4 3 2 5 Начальная программа:

Program homework;
var a:array [1..100] of integer;
i,n:integer;
begin
writeln('введите n=');
readln(n) ;
writeln('введите массив:');
for i:=1 to n do readln(a[i]);
for i:=n downto 1 do 
write(' ',a[i]);
readln;
end.

P.S. Буду очень благодарен, если подробно все распишите, я чайник..Всем, кто поможет большое Спасибо!

Решение задачи: «Изменить начальную программу»

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

program homework;
 
var
  a: array [1..100] of integer;
  i, n: integer;
  mn, mx: integer;
 
begin
  writeln('введите n=');
  readln(n);
  writeln('введите массив:');
  for i := 1 to n do readln(a[i]);
  
  mn := 1;mx := 1;
  for i := 1 to n do
  begin
    if a[mn] < a[i] then mn := i;
    if a[mx] > a[i] then mx := i;
  end;
  if mx < mn then swap(mn, mx);
  for i := 1 to mn do write(a[i]:3);
  for i := Pred(mx) downto Succ(mn) do write(a[i]:3);
  for i := mx to n do write(a[i]:3);
  readln;
end.

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

Объявлены переменные:
- a: массив из 100 целых чисел
- i, n: целочисленные переменные для цикла
- mn, mx: переменные для хранения минимального и максимального элементов массива
Выводится сообщение с просьбой ввести значение переменной n.
Пользователю предлагается ввести массив a[].
Инициализируются переменные mn и mx значением 1.
Цикл выполняется n раз, где каждая итерация сравнивает текущий элемент массива с элементами, хранящимися в mn и mx, и обновляет значения mn и mx, если текущий элемент меньше или больше соответственно.
Если значение mx меньше значения mn, то выполняется обмен значениями между mn и mx.
Цикл выводит значения элементов массива a[], начиная с индекса mn и заканчивая индексом mx, с шагом 3.
Запрос на ввод с помощью readln().