Составить программу упорядоченного элемента массива с 6 по 10 в порядке убывания. Вывести массив, после сортировки Pascal, метод пузырька

var
  arr: array[1..10] of Integer;
  i, j, temp: Integer;
begin
  // Инициализация массива
  arr[1] := 5; arr[2] := 2; arr[3] := 8; arr[4] := 1; arr[5] := 9;
  arr[6] := 3; arr[7] := 7; arr[8] := 6; arr[9] := 4; arr[10] := 0;

  // Сортировка массива с 6 по 10 метод пузырька
  for i := 6 to 9 do
    for j := 6 to 10 - i + 5 do
      if arr[j] < arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

  // Вывод отсортированного массива
  for i := 1 to 10 do
    Write(arr[i], ' ');
end.