Упорядочить одномерный массив [1..10], заполненный случайными целыми числами по убыванию.

const n=10;var a:array[1..n] of integer;i,j,k:integer;beginRandomize;for i:=1 to n do begin a[i]:=Random(50); write(a[i]:4);end;writeln;for i := 1 to n-1 do for j := 1 to n-i do  if a[j] < a[j+1] then   begin    k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k;   end;for i:=1 to n do write(a[i]:4);writeln;end.