Отсортировать массив в порядке убывания и найти разницу первого и последнего элементов

{uses SysUtils} //Раскоментируй это, если у тебя не PascalABC.NET
 
type 
  int = integer;
  uint = byte;
  arr = array of int;
  
procedure quicksort(var mas:arr; 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 
  x:arr;
  i:uint;
  
begin
  writeln('Введите n - размер массива:');
  read(i);
  SetLength(x, i);
  writeln('Введите массив:');
  for i:= low(x) to high(x) do
    read(x[i]);
  quicksort(x, low(x), high(x));
  writeln('Разница первого и последнего элементов отсортированног по убыванию массива: ', x[low(x)] - x[high(x)]);
end.