PascalДана последовательность из N целых чисел и число K . Сдвинуть всю последовательность на K элементов вправо , если K - положительное и влево , если отрицательное​

могу наверное написать на с++, а там на паскале похожее.

vector<int>a;

int n,k,s,x,i,s1,n1;

cin>>n>>k;

for(i=0;i<n;i++)

{

cin>>x;

a. push_back(x);

}

s=a[0];

if(k<0)

{

s1=s+k;

s1=s1+1;

for(i=0;i<n;i++)

{

s1=s1-1;

a[i]=s1;

}

else

{

s1= s+k;

s1 =s1-1;

for(i=0;i<n;i++)

{

s1=s1+1;

a[i]=s1;

}

}

вывести массив

не уверен, что верно, мб дичь написал