Определить количество нечётных элементов массива , отсортировать в порядке возрастания - Pascal

Формулировка задачи:

Дан массив, содержащий n элементов. Определить количество нечётных элементов массива , отсортировать в порядке возрастания. Задача должна содержать 2 процедуры. Как отсортировать в порядке возрастания ?

program nech;
uses crt;
var
  a:array[1..10] of longint;
  i,n,kol:longint;
begin
  writeln('vvedite kol-vo elementov massiva');
  readln(n);
  for i:=1 to n do
    begin
      writeln('a[',i,']=');
      readln(a[i]);
      if a[i] mod 2=1 then 
      inc(kol);
    end;
  writeln('kol-vo nechetnih elementov=',kol);
   end.

Решение задачи: «Определить количество нечётных элементов массива , отсортировать в порядке возрастания»

Листинг программы

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
  begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
  end;

Объяснение кода листинга программы

В данном коде происходит сортировка массива a по возрастанию.

for i:=1 to n-1 do — цикл по индексам массива от 1 до n-1
for j:=i+1 to n do — цикл по индексам массива от i+1 до n
if a[i]>a[j] then — проверка, если элемент с индексом i больше элемента с индексом j, то
begin — начало операции
x:=a[i]; — переменная x получает значение элемента с индексом i
a[i]:=a[j]; — элемент с индексом i заменяется на значение элемента с индексом j
a[j]:=x; — элемент с индексом j заменяется на значение переменной x
end; — конец операции Данный код реализует алгоритм сортировки пузырьком.