Массив содержит четное количество элементов, которая сортирует первую половину массива по возрастанию - Pascal

const
  CSize = 10;{размер массива}
 
var
  mas: array[1..CSize] of integer;
  i, j, t: integer;
 
begin
  Randomize;
  
  for i := 1 to CSize do mas[i] := 1 + random(20); {заполняем массив}             
                                                                     {случайными числами}
          {Пузырьковая сортировка} 
  for i := 1 to (CSize div 2) - 1 do {внешний цикл}
    for j := 1 to (CSize div 2) - 1 do {внутренний}
      if mas[j] > mas[j + 1] then begin{если один больше другого то меняем местами}
        t := mas[j];     {временное хранилице}           
        mas[j] := mas[j + 1];  
        mas[j + 1] := t;         
      end;
  
  writeln('Первая половина'); 
  for i := 1 to (CSize div 2) do writeln(mas[i]);{вывод отсортированной части}
  
  writeln('Вторая половина');
  for i := (CSize div 2) + 1 to CSize do writeln(mas[i]);{вывод неотсортированной части}
  
end.