Дан одномерный массив целых чисел размерностью до 20 элементов Необходимо первую половину массива отсортировать по возрастанию, а вторую по убыванию

Type str=array[1..20] of char;
Var  c:str;

Program par;
Const n=20;
Type mas = array[1..n] of integer;
     mas2 = array[1..n] of char;
Var a:mas;
    i,k,stek:integer;
BEGIN
  Writeln ('Массив чисел ');
  for i:=1 to n do begin
    a[i]:=random(25)+1;
    write (a[i]:3);
  end;
  
  for i:=1 to round(n/2) do
    for k:=2 to round(n/2) do
     if a[k-1]>a[k] then {по возрастанию}
        begin
           stek:=a[k-1];
           a[k-1]:=a[k];
           a[k]:=stek;
        end;
  for i:=round(n/2)+1 to n do
    for k:=round(n/2)+2 to n do
     if a[k-1]<a[k] then {по убыванию}
        begin
           stek:=a[k-1];
           a[k-1]:=a[k];
           a[k]:=stek;
        end;
  writeln;
  for i:=1 to n do begin
    write (a[i]:3);
  end;
END.

{Дан одномерный массив целых чисел размерностью до 20 элементов 
Необходимо первую половину массива отсортировать по возрастанию, 
а вторую по убыванию. Организовать симаольный массив (английских букв), 
заполнив его символами, полученными преобразованием чисел массива 
(на основе порядковой последовательности) в символыю Вывести на экран 
исходный массив и результат работы программы.}
Program par;
Const n1=20;
Type mas = array[1..n1] of integer;     
     posl = (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z);
     
Var a1:mas;
    b1:array[1..n1] of posl;
    i1,k1,stek:integer;
 
Function preobr(x:integer):posl;
var j1:integer;
    buk:posl;
begin
  for j1:=1 to x do
      buk:=succ(buk);  
  preobr:=buk;
end;
    
BEGIN
  Writeln ('Массив чисел ');
  for i1:=1 to n1 do begin
    a1[i1]:=random(26);
    write (a1[i1]:3);
  end;
  
  for i1:=1 to round(n1/2) do
    for k1:=2 to round(n1/2) do
     if a1[k1-1]>a1[k1] then {по возрастанию}
        begin
           stek:=a1[k1-1];
           a1[k1-1]:=a1[k1];
           a1[k1]:=stek;
        end;
  for i1:=round(n1/2)+1 to n1 do
    for k1:=round(n1/2)+2 to n1 do
     if a1[k1-1]<a1[k1] then {по убыванию}
        begin
           stek:=a1[k1-1];
           a1[k1-1]:=a1[k1];
           a1[k1]:=stek;
        end;
  writeln;
  for i1:=1 to n1 do begin
    write (a1[i1]:3);
  end;
  writeln;
 
  for i1:=1 to n1 do
  begin
    b1[i1]:=preobr(a1[i1]);
    write('  ',b1[i1]);
  end;
 
END.