Дан массив а(10). Найти максимальный элемент массива, упорядочить элементы, следующие за ним по убыванию — Pascal(Паскаль)

Uses
 CRT;
Var
 i,n,max,imax,x,j:integer;
 a:array[1..20] of integer;
begin
Clrscr;
repeat
 write(-: ');
 readln(n);
until n in [1..20];
randomize;
max:=a[1];
imax:=1;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:3);
  if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
   end;
 end;
 writeln;
 writeln('MAX[',imax,']=',max);
 writeln;
 if (imax<>n) and (imax<>n-1) then
 begin
 For j :=1 To n-1 Do
   For i := imax+1 To n-1 Do
     If a[i] > a[i+1] Then
       Begin
         x:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=x;
       End;
       for i:=1 to n do
      begin
  write(a[i]:3);
  end;
 end
 else writeln('MAX!!!');
 readkey
 end.