Помогите с последовательностью. Pascal

В общем вводим кол-во чисел в последовательности. затем вбиваем сами числа.
и нужно "Преобразовать последовательность таким образом, чтобы в первой его половине располагались элементы по возрастанию, во второй – по убыванию. "

Написал код но он для массива из 20 чисел.
Как этот код преобразовать для последовательностью с задаваемым кол-вом чисел N?

for j:=1 to 9 do

for i:= 1 to 9 do

if a[i]>a[i+1] then

begin t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t

end;

for i:=1 to 10 do

write(a[i],' ');

for j:=11 to 19 do

for i:= 11 to 19 do

if a[i]