Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными - Pascal

Формулировка задачи:

Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными числами, начиная с последнего элемента, который должен быть равен X . Входные данные Входная строка содержит два целых числа: начальное значение X и размер массива N , разделённые пробелом. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести содержимое массива: убывающую последовательность из N последовательных натуральных чисел; последний элемент должен быть равен X . Примеры входные данные 6 4 выходные данные 9 8 7 6

Решение задачи: «Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными»

Листинг программы

var a:array[1..10000] of integer;
    n,x,i:integer;
begin
read(x,n);
for i:=1 to n do
 begin
  a[i]:=x+n-i;
  write(a[i],' ');
 end;
end.

Объяснение кода листинга программы

Объявляется массив a размером 10000 элементов типа integer.
Объявляются переменные n, x, i типа integer.
Значения для переменных x и n считываются с ввода.
Начинается цикл for от 1 до n.
В каждой итерации цикла выполняется следующее:
- Элементу массива a с индексом i присваивается значение x + n - i.
- Значение элемента a[i] выводится на экран.
Программа завершается.