Напишите программу, которая заполняет массив из n элементов последовательными натуральными числами, начиная с x , и выводит его. на языке pascal

Var  ar: array[1..10000]of integer;
  i, n, x: integer;
begin
  write('Введите N:');
  read(n);
  write('Введите X:');
  read(x);
    for i := 1 to n do
     begin
      ar[i] := x;
      x:=x+1;
      write(ar[i], ' ');
    end;
end.