Напечатать элементы второй строки матрицы в порядке убывания - Pascal

{uses SysUtils} //Раскоментируй это, если у тебя не PascalABC.NET
 
type 
  int = integer;
  uint = byte;
  list = array of int;
  matrix = array of list;
  
procedure quicksort(var mas:list; first, last:int); //Быстрая сортировка
var i, l, x, buf:int;
begin
  if not(first < last) then
    exit;
  x:= mas[(first + last) div 2];
  i:= first;
  l:= last;
  while (i <= l) do
  begin
    while (mas[i] > x) do //Для возрастания поставь < 
      inc(i);
    while (mas[l] < x) do //Для возрастания поставь > 
      dec(l);
    if (i <= l) then
    begin
      buf:= mas[i];
      mas[i]:= mas[l];
      mas[l]:= buf;
      inc(i);
      dec(l);
    end;
  end;
  quicksort(mas, first, l);  
  quicksort(mas, i, last);
end; 
 
var 
  arr:matrix;
  i, j:uint;
  
begin
  writeln('Введите n - линейный размер матрицы');
  read(i);
  SetLength(arr, i);
  writeln('Введите матрицу размером n x n:');
  for i:= low(arr) to high(arr) do //Здесь вместо low и high можно поставить 0 и n - 1
  begin
    SetLength(arr[i], Length(arr));
    for j:= low(arr[i]) to high(arr[i]) do
      read(arr[i, j]);
  end;
  quicksort(arr[low(arr) + 1], low(arr), high(arr)); //В дальнейшем low(arr) + 1 эквивалентно 1
  writeln('Вторая строка по убыванию:');
  for j:= low(arr[low(arr) + 1]) to high(arr[low(arr) + 1]) do
    write(arr[low(arr) + 1, j], ' ');
end.