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.

const
  n=10;{кол-во элементов}
var
  a:array[1..n]of integer;{массив}
  i,Aij,O,R:integer;{используемые переменные}
begin
  randomize;{сброс случайного генератора}
  repeat
    write('Enter O[',1,'..',n-1,']:=');{просим ввести нижний индекс}
    readln(O);{вводим}
  until(1<=O)and(O<n);{проверяем ввод}
  repeat
    write('Enter R[',O+1,'..',n,']:=');{просим ввести верхний индекс}
    readln(R);{вводим}
  until(O<R)and(R<=n);{проверяем ввод}
  writeln('before sort');{выводим массив до сортировки}
  for i:=1 to n do{цикд создания и вывода массива}
    begin
      a[i]:=random(100);{создаем элемент массива}
      write(a[i]:3);{выводим его}
    end;
  writeln;{переводим строку}
  i:=O;{начало "ленивой" сортировки}
  while i<R do{пока текущий индекс меньше верхней гранницы}
    if a[i]>a[i+1] then{если больше меняем}
      begin
        Aij:=a[i];{запоминаем}
        a[i]:=a[i+1];{меняем}
        a[i+1]:=Aij;{востанавливаем}
        i:=O;{в начало сортировки}
      end else inc(i);{к следующему проверяемому элементу}
  writeln('after sort');{выводим результат}
  for i:=1 to n do{цикл вывода}
    write(a[i]:3);{выводим элемент}
end.