Склавиатуры вводится число х. заполните массив 10 элементами, в котором: первый на 1 меньше х, второй на 2 меньше и т.д., десятый – на 10 меньше х.(паскаль)

Const n=10;
var a:array[1..n] of integer;
x,i:integer;
begin
write('x = '); readln(x);
for i:=1 to 10 do a[i]:=x-i;
for i:=1 to n do write(a[i]:3);
writeln;
end. 

Пример:
x = 25
 24 23 22 21 20 19 18 17 16 15