Сортировка пузырьком по убыванию

const n=10;
var A:array[1..n] of integer;
m,i,j,x:integer;
Sr:real;
Begin 
Sr:=0;
For i:=1 to n do begin
                 A[i]:=random(100)-50;
                 if (A[i] mod 5=0) and not (A[i] mod 10=0) then begin 
                                                                 Sr:=Sr+A[i];
                                                                 inc(m);
                                                                 end;                                                
                 end;
writeln('Ср.А=',Sr/m);
for i:=1 to n do write(A[i]:5);
writeln;
for i:=1 to n-1 do
                for j:=i+1 to n do
                                if a[i]<a[j] then
                                                  begin
                                                  x:=a[i];
                                                  a[i]:=a[j];
                                                  a[j]:=x;
                 end;                 
writeln('по убыванию');
for i:=1 to n do
write(a[i]:4);
end.

const n=5;
var a:array[1..n] of byte;
    i,j,k,x:byte;
begin
for i:=1 to n do
 begin
  a[i]:=i;//самый сложный для сортировки по убыванию
  write(a[i]:3);
 end;
writeln;
writeln('Сортировка');
for i:=1 to n-1 do   //от 1 до предпоследнего
 begin
  writeln('i=',i);
  for j:=i+1 to n do   // смотрим что впереди
  if a[i]<a[j] then   //если меньше обмениваем, и так до конца массива
    begin
     x:=a[i];
     a[i]:=a[j];
     a[j]:=x;
     writeln('  j=',j);
     for k:=1 to n do
     write(a[k]:3);
     writeln;
    end;
  end;
end.

const n=10;
var
  a: array [1..n] of Integer;
  i, j, nn, t: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-50+Random(101);
  Write('A ='); for i:=1 to n do Write(' ',a[i]:3); WriteLn;
 
  nn:=High(a);
  repeat
    i:=nn; nn:=Low(a);
    for j:=Low(a) to i-1 do
      if a[j+1]>a[j] then begin
        nn:=j; t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t;
      end;
  until nn=Low(a);
 
  Write('A''='); for i:=1 to n do Write(' ',a[i]:3); WriteLn;
end.

begin
  var N := ReadlnInteger('Размер массива:');
  var &Array := ReadArrInteger(N);
  for var j := N - 1 downto 0 do
    for var i := 0 to j - 1 do
      if &Array[i] < &Array[i + 1] then Swap(&Array[i], &Array[i + 1]);
  Writeln(&Array);
end.

begin
  var N := ReadlnInteger('Размер массива:');
  var &Array := ReadArrInteger(N);
  var IsSwapped := false;
  
  for var j := N - 1 downto 0 do
  begin
    IsSwapped := false;
    for var i := 0 to j - 1 do
      if &Array[i] < &Array[i + 1] then
      begin
        Swap(&Array[i], &Array[i + 1]);
        IsSwapped := true;
      end;
    if IsSwapped = false then break;
  end;
  Writeln(&Array);
end.

if not IsSwapped