помогите с паскалем. по аналогии отсортировать по убыванию дана сортировка по возврастанию

program p1;
var a:array[1..10] of integer;
i,j,k: integer;
begin
for i:=1 to 10 do a:=random(10);
for j:=1 to 10 do
for i:=1 to 9 do
if a>a[i+1] then begin
k:=a;
a:=a[i+1];
a[i+1]:=k;
end;
for i:=1 to 10 do
write(a:4);
end.

ой опечаталась в предпоследней строчке там write(a:4)