Выполнить сортировку массива по убыванию методом пузырька

const n=7;
var i,j,c: integer;
    a: array[1..n] of integer;
    begin
    for i:=1 to n do
        begin
             a[i]:=random(21);
             write(a[i]:3);
        end;
    writeln();
    for i:=1 to n-1 do
        for j:=1 to n-1 do
        if(a[j]<a[j+1])
        then
            begin
                 c:=a[j];
                 a[j]:=a[j+1];
                 a[j+1]:=c;
             end;
    for i:=1 to n do
        write(a[i]:3);
    writeln();
    end.

const n = 7;
var i, c: integer;
    a: array [1..n] of integer;
    b: boolean;
begin
  randomize;
  for i := 1 to n do
    begin
      a[i] := random(21);
      write(a[i]:3)
    end;
  writeln;
  repeat
    b := true;
    for i := 1 to n - 1 do
      if a[i] < a[i + 1]
        then begin
          c := a[i];
          a[i] := a[i + 1];
          a[i + 1] := c;
          b := false
        end
  until b;
  for i := 1 to n do write(a[i]:3);
  readln
end.

for i:=1 to n-1 do
        for j:=1 to n-i-1 do