Помогите написать код на pascal

Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами.

   program ReverseBetweenMinMax;
    
    var   A: array[1..10] of Integer;   minIndex, maxIndex, i, j: Integer;
    
    begin   WriteLn('Введите 10 элементов массива:');   for i := 1 to 10 do
        ReadLn(A[i]);
    
      minIndex := 1;   maxIndex := 1;   for i := 2 to 10 do   begin
        if A[i] < A[minIndex] then
          minIndex := i;
        if A[i] > A[maxIndex] then
          maxIndex := i;   end;
    
      if minIndex > maxIndex then     begin
        j := minIndex;
        minIndex := maxIndex;
        maxIndex := j;   end;
    
      for i := 0 to (maxIndex - minIndex + 1) div 2 do   begin
        j := A[minIndex + i];
        A[minIndex + i] := A[maxIndex - i];
        A[maxIndex - i] := j;   end;
    
    end.

Как сделать так чтоб код соответствовал заданию?