Сортировка по убыванию в одномерном массиве

program vaivai72;
uses crt;
const
n=12;
label 1,  2,  3;
var
m:array[1..n] of integer;
l, k, i, j, tmp, x: integer;
begin
clrscr;
randomize;
l:=1;
k:=100;
  3: write ('vozrastaniye=1; ubivanie=2: ');
  readln (x);
     begin
     if (x>2) or (x<1) then goto 3;
     end;
 
    case x of
 
  1: begin
   for i:=1 to 12 do
  m[i]:=trunc((l-k+1)*random+k);
  for i:=n-1 downto 1 do
    for j:=1 to i do
        if M[j]>M[j+1] then
            begin
               tmp:= M[j];
               M[j]:= M[j+1];
               M[j+1]:= tmp;
            end;
write('vozrastaniye: ');
for i:=1 to n do
    write(M[i]:4);
writeln;
  end;
  end;
  
  
  2:
 
...
 
end.

program vaivai72;
uses crt;
const
n=12;
var
m:array[1..n] of integer;
i, j, tmp, x: integer;
begin
clrscr;
randomize;
for i:=1 to 12 do
 begin
  m[i]:=random(50);
  write(m[i]:3);
 end;
writeln;
repeat
writeln;
write('vozrastaniye=1; ubivanie=2: ');
readln(x);
case x of
  1: begin
     for i:=n-1 downto 1 do
      for j:=1 to i do
       if M[j]>M[j+1] then
        begin
         tmp:= M[j];
         M[j]:= M[j+1];
         M[j+1]:= tmp;
        end;
     write('vozrastaniye: ');
     for i:=1 to n do
      write(M[i]:4);
     end;
  2:begin
     for i:=n-1 downto 1 do
      for j:=1 to i do
       if M[j]<M[j+1] then
        begin
         tmp:= M[j];
         M[j]:= M[j+1];
         M[j+1]:= tmp;
        end;
     writeln('Ubivanie');
     for i:=1 to n do write(m[i]:4);
    end;
end;
until (x>2)or(x<1)
end.