Разместить элементы вектора в порядке убывания на основе заданных методов сортировки

const
  n = 16;
  lim = 99;
  d = trunc(ln(lim) / ln(10)) + 3;
 
var
  a, b: array[1..n] of integer;
  i, j, max: integer;
 
begin
  randomize;
  writeln('Source aray:');
  for i := 1 to n do
    begin
      a[i] := -lim + random(lim * 2 + 1);
      write(a[i]:d)
    end;
  writeln;
  for i := 1 to n do
    begin
      max := 1;
      for j := 1 to n do
        if a[j] > a[max]
          then max := j;
      b[i] := a[max];
      a[max] := -lim - 1
    end;
  writeln('Sorted array:');
  for i := 1 to n do write(b[i]:d);
  readln
end.

const
  n = 16;
  lim = 99;
  d = trunc(ln(lim) / ln(10)) + 3;
 
var
  a: array[1..n] of integer;
  i, j, max, t: integer;
 
begin
  randomize;
  writeln('Source aray:');
  for i := 1 to n do
    begin
      a[i] := -lim + random(lim * 2 + 1);
      write(a[i]:d)
    end;
  writeln;
  for i := 1 to n - 1 do
    begin
      max := i;
      for j := i to n do
        if a[j] > a[max]
          then max := j;
        if max > i
          then begin
            t := a[i];
            a[i] := a[max];
            a[max] := t
          end
    end;
  writeln('Sorted array:');
  for i := 1 to n do write(a[i]:d);
  readln
end.

const
  n = 16;
  lim = 99;
  d = trunc(ln(lim) / ln(10)) + 3;
 
type
  arr = array[1..n] of integer;
 
procedure qsort(var a: arr; l, r: integer);
var
  i, j, x, y: integer;
begin
  i := l;
  j := r;
  x := a[(l + r) div 2];
  repeat
    while a[i] > x do inc(i);
    while x > a[j] do dec(j);
    if i <= j
      then begin
        y := a[i];
        a[i] := a[j];
        a[j] := y;
        inc(i);
        dec(j)
      end;
  until i > j;
  if l < j then qsort(a, l, j);
  if i < r then qsort(a, i, r)
end;
 
var
  a: arr;
  i: integer;
 
begin
  randomize;
  writeln('Source aray:');
  for i := 1 to n do
    begin
      a[i] := -lim + random(lim * 2 + 1);
      write(a[i]:d)
    end;
  writeln;
  qsort(a, 1, n);
  writeln('Sorted array:');
  for i := 1 to n do write(a[i]:d);
  readln
end.