Заполнитьмассив а , начинаясх(ввести х с клавиатуры)

Type mas=array[1..1000] of integer;
var
   a:mas;
   i,h,x,k:integer;
begin
   readln(h,x);
   k:=0;
   for i:=x to h+x do
      begin
         read(i);
         k:=k+1;
         a[k]:=i;
      end;
   for i:=1 to k do
      write(a[i], ' ');
end.

На всякий случай написала вывод массива