Упорядочить по невозрастанию массив - Pascal ABC

Формулировка задачи:

1) Упорядочить по невозрастанию массив, содержащий 25 вещественных чисел.

Решение задачи: «Упорядочить по невозрастанию массив»

Листинг программы

const n = 25;
 
var
  mas : array [1..n] of real;
  new : real;
  i, j, k : byte;
  
begin
  Writeln('Введите 25 элементов массива: ');
  for i:= 1 to n do
    Read(mas[i]);
  Writeln;
    
  for j:= 1 to n-1 do
    begin
      new:= mas[n];
      k:= n;
      for i:= n downto j do
        if mas[i] > new then
          begin
            k:= i;
            new:= mas[i];
          end;
        mas[k]:= mas[j];
        mas[j] := new;
      end;
    for i:= 1 to n do
      Write(mas[i], '  ');
    Writeln;
end.

Объяснение кода листинга программы

Переменная n инициализируется значением 25.
Создается переменная mas, которая представляет собой массив из 25 элементов типа real.
Выводится сообщение с просьбой ввести 25 элементов массива.
С помощью цикла for считываются 25 элементов массива.
В цикле for вычисляется значение переменной new и присваивается переменной k. Значение k устанавливается равным последнему индексу массива mas.
В цикле for сравниваются элементы массива mas с элементом new. Если элемент mas[i] больше new, то значение k устанавливается равным индексу i и значение new присваивается элементу mas[i].
После завершения внутреннего цикла, в цикле for происходит перезапись элементов массива mas с элементами массива mas начиная с индекса j и до индекса k.
В цикле for выводится каждый элемент массива mas с пробелом между элементами.
Цикл for завершается.