Массивы! Помогите пожалуйста! Опции

[bestlover]

Упорядочить каждые вторы элементы всего массива по убыванию квадратов значений

[bestlover]

begin
writeln('Введите элемент массива №',c);
readln(mas1[c]);
end;

можно было через генератор значений массива сделать randomize, а так огромное спасибо!!!