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

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,temp:integer;
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  for i:=1 to n do
    for j:=i to n do
      if a[j]>a[i] then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
  {âûâîäèì ìàññèâ}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,b:integer;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 for i:=1 to n do
 for j:=1 to n-1 do
 if abs(m[j])<abs(m[j+1]) then
 begin
  b:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=b;
 end;
 write('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,b,a,t:integer;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 write('Введите отрезок A B -> ');
 readln(a,b);
 for i:=1 to n do
 for j:=1 to n-1 do
 if ((m[j]<a) or (m[j]>b)) and (m[j+1]<=b) and (m[j+1]>=a) then
 begin
  t:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=t;
 end;
 write('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

uses crt;
const n=10;
var m:array[1..n]of integer;
i,c,k:integer;
 
begin
 clrscr;
 k:=0;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 write('Введите C -> ');
 readln(c);
 for i:=1 to n do if m[i]>c then inc(k);
 writeln('Всего элементов, больших C - ',k);
 readln;
end.

uses crt;
const n=10;
var m:array[1..n]of integer;
i,k1,k2,s:integer;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k1:=0;
 k2:=0;
 for i:=1 to n do if m[i]<0 then
 begin
  k1:=i;
  break;
 end;
 for i:=k1+1 do n do if m[i]<0 then
 begin
  k2:=i;
  break;
 end;
 s:=0;
 for i:=k1+1 to k2-1 do s:=s+m[i];
 writeln('S=',s);
 readln;
end.