Написать процедуру , сортирующую массив в убывающем порядке

uses crt;
var s:string;
   p1,p2:byte;
begin
clrscr;
writeln('Введите строку, содержащую скобочные выражения:');
readln(s);
while(pos('(',s)>0)and(pos(')',s)>0)do
 begin
  p1:=pos('(',s);
  p2:=pos(')',s);
  writeln(copy(s,p1+1,p2-p1-1));
  delete(s,1,p2);
 end;
readln
end.

uses crt;
var a: array[1..10] of integer;
    c,i,j:integer;
begin
clrscr;
for i:=1 to 10 do
 a[i]:=random(10)-random(20);
for i:=1 to 10 do
write(a[i],' ');
for i:=1 to 10 do
 for j:=1 to 9 do
  if a[j]<a[j+1] then
  begin
  c:=a[j+1];
  a[j+1]:=a[j];
  a[j]:=c;
  end;
writeln;
for i:=1 to 10 do
write(a[i],' ');
end.

uses crt;
const m=5;
      n=6;
var a: array[1..m,1..n] of real;
    b: array[1..m] of real;
    c,i,j:integer;
begin
clrscr;
for i:=1 to m do
for j:=1 to n do
 a[i,j]:=random(10)/6-random(20)/3;
 write('Matrix a');
 writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3:2,' ');
writeln
end;
for i:=1 to m do
b[i]:=a[i,1];
for i:=1 to m do
for j:=2 to n do
if b[i]>a[i,j] then
b[i]:=a[i,j];
write('Matrix b ');
writeln;
for i:=1 to m do
write (b[i]:3:2,' ');
end.