Дан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах

program zz1;const n = 20; // задаем количество элементов в массивеvar i, j, k,v:integer; // задаем переменные целого типаm:array [1..n] of integer;b:array [1..10] of integer;beginfor i:=1 to n do // получаем n чисел случайных и записываем их в массивm[i]:=random(21);for i:=1 to n do // выводим исходный массив на экранwrite(m[i],\' \');writeln; // переходим на новую строку для вывода ответаfor i:=1 to n do if i mod 2 = 0 then begin k:=k+1;b[k]:=m[i] ;end; // переписываем числа на четных номерах в новый массив

for i := 1 to k-1 do // сортируем for j := 1 to k-i do if b[j] < b[j+1] then begin v := b[j]; b[j] := b[j+1]; b[j+1] := v; end;k:=0;for i:=1 to n do // переписываем числа обратноif i mod 2 = 0 then begin k:=k+1;m[i]:=b[k] ;end;

for i:=1 to n do // выводим полученный массив на экранwrite(m[i],\' \');writeln; end.