Сортировка массива

[Neksion]

Помогите решить пожалуйста!!!!!!
Дан одномерный массив. Отсортировать в порядке убывания только те элементы массива, которые находятся перед последним максимальным элементом.
Последний максимальный найти могу, отсортировать нет))
вот что есть
uses crt;
const n=10;
var a:array [1..n] of integer;
i,j,c,k,max:integer;
begin
clrscr;
for i:=1 to n-1 do
begin
write ('a[',i,']=');
readln (a[i]);
end;
max:=a[1];
for i:=1 to n do
begin
if a[i]>=max then
max:=a[i];
end;
begin
c:=j;
for j:=i to n do
begin
if a[j]>a[c] then
c:=j;
k:=a[c];
a[c]:=a[i];
a[i]:=a[k];
end;
end;


for i:=1 to n do
writeln('a[',i,']=',a[i]);
readln;
end.

[alex_fcsm]

Искать надо не сам макс. элемент а его индекс.

MaxI:=1;
for i:=2 to n do
 if a[i]>=a[MaxI] then MaxI:=i;

А вот и сортировка

for i:=2 to MaxI do
    for j:=MaxI downto i do
      if a[j-1]<a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;