Идея линейной сортировки по возрастанию (неубыванию)заключается в том, чтобы, последовательно просматривая весь массив, отыскать наименьшее число (элемент массива) и поменять его с первым элементом. Затем просматриваются элементы массива, начиная со второго, снова находится наименьший и меняется со вторым элементом и т.д. 

Программа вводит случайные числа из диапазона [0; 20), выводит массив, сортирует по неубыванию. Если числа различные, то массив будет упорядочен по возрастанию. 

program sort1;

uses crt;       {сортировака по возрастанию / неубыванию}

const n=5;

var a: array [1..N] of integer;

i, j, temp : integer;

   begin

      for i:= 1 to n do

           a[i]:=random(20);       {заполнение массива}

      for i:=1 to n do

           write (a[i], );       {вывод исходного массива}

      for i:=1 to n-1 do

          for j:=i+1  to n do

            If a[i]>a[j] then

              begin

                 temp:=a[i];    a[i]:=a[j];    a[j]:=temp;

              end;

      writeln;

      writeln(′отсотированный массив′ );

      for i:=1 to n do

           write (a[i], );           

end.