Замещение Т8.Зд2

Program zd2;
Var
  i,j,k,n,min:integer;
  a:array[1..100] of integer;
begin {Дан одномерный массив. Найти в этом массиве наименьший элемент и его
порядковый номер. Отсортировать элементы массива по убыванию методом
«выбора».}

  Writeln('-'*30); //Простое оформление
  Write('Введите размер массива: '); read(n); //Считываем размерность массива
  Writeln('-'*30); //Просто оформление
  Writeln('Стартовый массив: '); Write('a[Start]:  '); //Комментарии
  For i:=1 to n do begin //Заполнение массива от a[1] до a[n]
    a[i]:=random(-100,100); //заполнение случайными числами от -100 до 100
    Write(a[i]:5); //вывод элементов
  end;
  Writeln; //переход на новую строку
  j := n; //присвоение переменной j переменную n, чтобы вдальнейшем не потерять значение размерности

  while j > 1 do begin //Сортировка выбором
        min := a[1]; //Присваиваем минимуму первый элемент
        k := 1; //k - номер минимального элемента
        for i := 2 to j do //пробегаем по массиву, чтобы найти минимальный элемент
            if a[i] < min then begin //если элемент меньше минимума
                min := a[i]; //min присваевается значение элемента
                k := i //присваевается номер элемента
            end;
        a[k] := a[j]; //минимальному элементу присваевается значение последнего элемента
        a[j] := min; //последнему элементу присваевается значение минимального
        j := j - 1 //j уменьшается на 1, т.к. последний элемент уже на своем месте
    end;

  Writeln('-'*30); //Простое оформление
  Writeln('Сформированный массив: '); Write('a[Formed]: '); //комментарии
  For i:=1 to n do //вывод сформированных элементов массива
    Write(a[i]:5);
  Writeln; //переход на новую строку
  Writeln('-'*30); //простое оформление
end.