Отсортируйте первую половину массива по возрастанию, а вторую по убыванию

const
  n = 10;
 
var
  a: array [1..n] of integer; 
  b: array [1..n] of char;
  i, j: byte; 
  buf: integer; 
 
begin
  writeln('Исходный массив'); 
  for i := 1 to n do 
  begin
    a[i] := random(19) - 9; 
    write(a[i]:4); 
  end; 
  j := 0; 
  while j <= n / 2 do 
  begin
    for i := 1 to 4 do 
      if a[i] > a[i + 1] then 
      begin
        buf := a[i]; 
        a[i] := a[i + 1]; 
        a[i + 1] := buf; 
      end; 
    inc(j); 
  end; 
  j := 0; 
  while j <= 5 do 
  begin
    for i := 5 to 9 do 
      if a[i] < a[i + 1] then 
      begin
        buf := a[i];
        a[i] := a[i + 1]; 
        a[i + 1] := buf; 
      end; 
    inc(j);  
  end;
  writeln; 
  writeln('Сортированный массив'); 
  for i := 1 to n do 
    write(a[i]:4); 
  
  for i := 1 to n do
    b[i] := chr(a[i]);
  writeln; 
  writeln('Массив B:'); 
  for i := 1 to n do 
    write(b[i]:4); 
  
end.

a[i] := random(19) - 9;

Read(a[i]);