Отсортировать часть массива до максимального элемента по возрастанию, а оставшуюся часть по убыванию

Const nmax=100;
Var A:array[1..nmax] of real;
    i,j,n,imax:integer;
    temp:real;
Begin
    Repeat
     write('Количество чисел: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n,' чисел');
    imax:=1;
    For i:=1 to n do
    Begin
      read(A[i]);
      if A[i] > A[imax] then imax:=i;
    End;
    writeln('Max элемент = ',A[imax], ' а его индекс ',imax);
    For i := imax - 1 downto 2 do
     For j := 2 to i do
      if A[j] < A[j - 1] then 
      Begin
        temp := A[j];
        A[j] := A[j - 1];
        A[j - 1] := temp;
      End;
    For i := n downto imax + 1 do
     For j := imax + 1 to i do
      if A[j] > A[j - 1] then 
      Begin
        temp := A[j];
        A[j] := A[j - 1];
        A[j - 1] := temp;
      End;
    writeln('Результат');
    For i:=1 to n do
     write(A[i]:6:2);
    readln;
End.

procedure swap(var a, b: Real);
var t: Real;
begin
  t:=a; a:=b; b:=t;
end;
const
  nmax=100;
var
  a: array [1..nmax] of Real;
  i, j, n, imax: Integer;
begin
  repeat
    write('Количество чисел [2..',nmax,']: ');
    ReadLn(n);
  until n in [2..nmax];
  WriteLn('Введите ',n,' чисел');
  imax:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]>a[imax] then imax:=i;
  end;
  WriteLn('Max = ',a[imax]:8:2, ', индекс = ',imax);
  for i:=imax-1 downto 2 do for j:=2 to i do
    if a[j]<A[j-1] then swap(a[j],a[j-1]);
  for i:=n downto imax+2 do for j:=imax+2 to i do
    if a[j]>A[j-1] then swap(a[j],a[j-1]);
  WriteLn('Результат:');
  for i:=1 to n do Write(A[i]:8:2); WriteLn;
  Write('Нажмите Enter...'); ReadLn;
end.