const                                     { Как константы определим:}
     N = 20;                              { количество элементов массива;}
     O = -99;                             { начальное значение отрезка;}
     R = 99;                              { конечное значение отрезка;}
var
   A : array [1..N] of integer;           { опишем массив, в который занесём исходные значения;}
   i, j : Integer;                        { индексы массива;}
   Aji : Integer;                         { значение элемента массива;}
   maxx : Integer;                        { максимум для генерации случайного числа от 0<=A[i]<maxx=R-O+1;}

begin
     randomize;                           { инициализация генератора случайных чисел;}
     maxx := R-O+1;                       { вычисление верхней границы случайного числа;}

     writeln('Исходный массив A');        { выдача заголовка для печати исходного массива;}
     for i := 1 to N do begin             { цикл по всем элементам массива;}
         A[i] := random(maxx) + O;        { занесение в массив случайного значения O<=A[i]<=R;}
         write(A[i] : 4);                 { печать значения элемента массива;}
         end;
                                          { Сортировка элементов массива по возрастанию;}
     for i := 1 to N do begin             { цикл по всем элементам массива от 1 до N;}
         for j := i to N do begin         { цикл по элементам массива от текущего i до N;}
                                   { если значение текущего элемента i больше значения эллемента массива с бОльшим номером,}
             If (A[i] > A[j]) Then begin  { то меняем значения местами:}
                Aji := A[j];              { для чего заносим значение элемента с бОльшим номером в промежуточную переменную,}
                A[j] := A[i];             { в элемент с бОльшим номером заносим значение текущего элемента;}
                A[i] := Aji;              { в текущий элемент массива заносим мЕньшее значение из промежуточной переменной.}
             end;
         end;
     end;

     writeln;                      { пропустим пустую строку чтобы отделить вывод исходного массива от отсортированного;}
     writeln('Отсортированный массив A'); { выдача заголовка для печати отсортированного массива;}
     for i:=1 to N do begin               { цикл по всем элементам массива;}
         write(A[i] : 4);                 { печать значения элемента массива;}
         end;
     writeln;
end.