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

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]         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.