Осуществить циклический сдвиг элементов массива на k позиций вправо - Pascal ABC

CONST n=50;
VAR a:array [1..n] of integer;
j,i,k:integer;
BEGIN
Readln (k);
For i:=1 to n do a[i]:=Random (100); //заполняем массив
For j:=1 to k do begin  //делаем сдвиг j раз
  k:=a[n]; //запоминаем последний элемент
  For i:=n downto 2 do  //выполняем сдвиг
    a[i]:=a[i-1];
  a[1]:=k;
end;
END.