Паскаль! Дан целочисленный массив. Отсортировать массив по убыванию, начиная с максимального элемента

Program array;

const A=10;

var mas:array [1 ... A]of integer;

n, i, j, k, x:integer;

begin

writeln ('Исходный массив:');

for i:=1 to A do

writeln (i);

n:=1;

writeln ('Отсортированный массив:');

while i>n do

for i:=A downto n do

writeln (i);

end.