Отсортировать элементы вектора по возрастанию, если среднее арифметическое его положительных элементов больше 7

const
  n = 10; {количество элементов}
var
  a: array[1..n] of integer; {вектор}
  i, j, m, k, t: integer; {индексы, номер минимального элемента, количество положительных элементов, буфер для обмена}
  sap: real; {среднее арифметическое положительных элементов}
begin
  randomize; {инициализация ГПСЧ}
  k := 0; {положительных элементов пока не найдено}
  sap := 0; {сумма положительных элементов пока = 0}
  writeln('Исходный вектор:');
  {генерация элементов вектора с помощью ГПСЧ, печать элеентов вектора, определение суммы положительных элементов и их количества}
  for i := 1 to n do {предопределённый цикл для элементов вектора}
    begin
      a[i] := -9 + random(19); {генерация элемента с номером i в диапазоне [-9; 9]}
      write(a[i]:3); {печать элемента в три позиции}
      if a[i] > 0 then {если элемент положительный,}
        begin {то}
          inc(k); {увеличиваем на 1 количество положительных (эквивалентно k := k + 1;)}
          sap := sap + a[i] {добавляем элемент к сумме}
        end
    end;
  writeln; {переход печати на следующую строку}
  if k > 0 then {если есть положительные элементы,}
    begin {то}
      sap := sap / k; {находим среднее арифметическое}
      if sap < 7 then {если среднее арифметическое меньше 7,}
        begin {то сортируем и выводим отсортированный вектор}
          for i := 1 to n - 1 do {цикл по элементам для возможного обмена}
            begin
              m := i; {пока номер минимума равен номеру элемента для возможного обмена}
              for j := i + 1 to n do {цикл по остальным элементам, поиск минимального элемента}
                if a[j] < a[m] then m := j; {если текущий элемент меньше элемента для возможного обмена, то запоминаем его номер}
              if m > i then {если найден элемент, меньший элемента для возможного обмена}
                begin {то обмениваем элемент для возможного обмена с минимальным}
                  t := a[i]; {элемент для возможного обмена в буфер}
                  a[i] := a[m]; {на место элемента для возможного обмена помещаем минимальный}
                  a[m] := t {на место минимального помещаем элемент из буфера}
                end;
            end;
          writeln('Среднее арифметическое положительных ', sap:0:3, ' меньше 7');
          writeln('Отсортированный вектор:');
          for i := 1 to n do write(a[i]:3); {печать элементов (отсортированного) вектора}
          writeln {переход печати на следующую строку}
        end
      else {иначе, если среднее арифметическое не меньше 7, то печатаем сообщение об этом}
        begin
          writeln('Среднее арифметическое положительных ', sap:0:3, ' не меньше 7,');
          writeln('сортировка не требуется')
        end
    end
  else {иначе, если вектор не содержит положительных элементов, то печатаем сообщение об этом}
    writeln('Вектор не содержит положительных элементов');
  readln
end.