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

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  a.SortedDescending.Println;end.Тестовое решениеn=15-64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 173 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78

//Pascal ABC.NET 3.1 сборка 1219Var ar:array of integer; i,n:integer; procedure quicksort(var a:array of integer; Lo,Hi: integer);procedure sort(l,r: integer);vari,j,x:integer;begini:=l; j:=r; x:=a[random(r-l+1)+l];repeatwhile a[i]>x do i:=i+1; while x>a[j] do j:=j-1;  if i<=j then   begin    if a[i]<a[j] then swap(a[i],a[j]);    i:=i+1; j:=j-1;  end;    until i>=j;  if l<j then sort(l,j);  if i<r then sort(i,r);end;begin;  randomize;  sort(Lo,Hi)end; begin readln(n); setlength(ar,n); n:=n-1; writeln('Array:'); for i:=0 to n do  begin   ar[i]:=random(10);   write(ar[i]:4);  end; quicksort(ar,0,n); writeln; writeln('Final array:'); for i:=0 to n do write(ar[i]:4);end.Пример ввода:5Пример вывода:Array:   8   7   5   9   4Final array:   9   8   7   5   4