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

const  n=15;var  a:array[1..n] of integer;  i,j,k,t:integer;begin  Randomize;  Writeln('Исходный массив');  k:=1;  for i:=1 to n do    begin    a[i]:=Random(99)+1;    Write(a[i],' ');    if a[i]>a[k] then k:=i    end;  Writeln;  for i:=1 to k-2 do    for j:=1 to k-2 do      if a[j] > a[j+1] then        begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;  for i:=k+1 to n-1 do    for j:=k+1 to n-1 do      if a[j] < a[j+1] then        begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;  Writeln('Упорядоченный массив');  for i:=1 to n do Write(a[i],' ');end.