Упорядочить целочисленный массив х по убыванию

var x:array[1..n] of integer; (n сам задай)

i,j,k:integer;

begin

For i:=1 to n do
Readln(x[i]);

For j:=1 to n-1 do
For i:=1 to n-j do
If X[i]<X[i+1] then begin k:=X[i]; X[i]:=X[i+1]; X[i+1]:=k; end;

For i:=1 to n do
Writeln(X[i]);

end.