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

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.