Первое минимальное - Turbo Pascal

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

Помогите отредактировать программу чтобы сортировало после первого минимального элемента в массиве

program dsad;
 
type
  mas = array [1..100] of integer;
 
var
  a: mas;
  st: string;
  n, code, q, i, j, max, x, s: integer;
 
begin
  write('Введите размерность массива (<100): ');
  readln(n);
  for i := 1 to n do 
  begin
    repeat
      readln(st); 
      val(st, q, code);
      if code <> 0 then
        writeln('Введите целое число!');
    until code = 0;  
    a[i] := q;
  end;
  writeln;
  max := 1;
  for j := 2 to n do 
  begin
    if a[i] > a[max] then max := i;
  end;
  for i := 1 to n - 1 do 
  begin
    for j := i + 1 to n do 
    begin
      if a[i] < a[j] then begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
      end;
    end;
  end;
  for i := 1 to n do 
    write(a[i]:4);
end.

Решение задачи: «Первое минимальное»

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

var a: array [1..100] of integer;
    st: string;
    n, code, q, i, j, min, x: integer;
begin
repeat
write('Введите размерность массива от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Введите элементы массива, целые числа');
for i := 1 to n do
 begin
  repeat
  readln(st);
  val(st, q, code);
  if code <> 0 then
  writeln('Введите целое число!');
  until code = 0;
  a[i] := q;
 end;
min := 1;
for i := 2 to n do
if a[i]< a[min] then min := i;
writeln('Первый минимальный элемент=',a[min],' его индекс=',min);
if n-min<2 then write('Нет элементов для сортировки')
else
 begin
  for i := min+1 to n - 1 do
  for j := i + 1 to n do
  if a[i] < a[j] then
   begin
    x := a[i];
    a[i] := a[j];
    a[j] := x;
   end;
  writeln('Сортировка по убыванию элементов после первого минимального');
  for i := 1 to n do
  write(a[i]:4);
 end;
end.

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

Объявлены переменные: a: массив целых чисел размером от 1 до 100; st: строка для чтения ввода; n, code, q, i, j, min, x: целочисленные переменные.
Повторяющийся блок с числом n и заполнением массива a.
Находится первый минимальный элемент массива a, его индекс.
Если в массиве менее двух элементов, выводится сообщение Нет элементов для сортировки.
Если в массиве более двух элементов, производится сортировка по убыванию элементов, начиная с первого минимального элемента.
Выводится отсортированный массив a.