Помогите понять цикл тут.

Вот задача: Дан массив чисел. Расставить их по убыванию.

Вот решение, но я не понимаю алгоритм.

Вот
FOR J := 1 TO N-1 DO
BEGIN
NEW := MAS[N];
К := N;

Что значит FOR J := 1 TO N-1 DO ?
А что значит NEW := MAS[N] и К := N;

Кто объяснит эту часть кода?

Вот весь код.

1. CONST M = 100;
2. VAR MAS : ARRAY[1..M] OF INTEGER;
3. I, J, K, NEW, N : INTEGER;
4. BEGIN
5. WRITE('BBЕДИTE РАЗМЕР МАССИВА N = ');
6. READLN(N);
7. WRITELN('BBЕДИTE N,' ЭЛЕМЕНТОВ МАССИВА');

8. FOR I := 1 TO N DO
9. READ(MAS[I]);
10.WRITELN;

11.FOR J := 1 TO N-1 DO
12.BEGIN
13.NEW := MAS[N];
14.К := N;

15.FOR I := N DOWNTO 1 DO
16.IF MAS[I]>NEW THEN
17.BEGIN
18.К := I;
19.NEW := MAS[I]
20.END;
21.MAS[K] := MAS[1];
22.MAS[1] := NEW;

23.FOR I := 1 TO N DO
24.WRITE(MAS[I] : 4);
25.WRITELN
26.END