Упорядочить по убыванию элементы строки матрицы

program pr;
 
var
  a: array [1..100, 1..100] of integer;
  i, j, min, ind, k, c,n,m: integer;
 
begin
writeln('Введите количество строк матрици');
readln(n);
writeln('Введите количество столбцов матрици');
readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21) - 10;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  min := a[1, 1];
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] <= min then
      begin
        min := a[i, j];
        ind := i;
      end;
  writeln;
  writeln('Минимальный элемент: ',min);
  writeln('Строка содержащая этот элемент: ',ind);
  for j := 1 to m do
    for k := 2 to n do
      if a[ind, k] > a[ind, k - 1] then begin
        c := a[ind, k];
        a[ind, k] := a[ind, k - 1];
        a[ind, k - 1] := c;
      end;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
end.

program pr;
 
var
  temp, n, i, j: integer;
  a: array [1..100] of integer;
 
begin
  randomize;
  writeln('Введите количество элементов последовательности');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(0, 1);
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] > a[j + 1] then begin
        temp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := temp;
      end;
  
  for i := 1 to n do
    write(a[i]:3);
end.