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

uses crt;
var l , n , i , j , t : integer;
    a : array[1..100] of integer;
 
Begin
     write('vvedite razmer massiva m=');
    Readln(n);
    for i := 1 to n do begin
      write('a[',i,']=');
      readln(a[i]);
      end;
        write('ishodniy massiv');
        writeln;
       for i := 1 to n do begin
      write(a[i]:3);
      end;
      writeln;
      writeln('na skolko posiciy sdvigat');
    Readln(l);
    for i := 1 to l do begin
        t := a[1];
        for j := 1 to n - 1 do
            a[j] := a[j + 1];
        a[n] := t;
    end;
    writeln('poluchenaya stroka');
    for i := 1 to n do
        write(a[i]:3);
 
End.

const n=10;
var
mas:array[1..n] of integer;
i,k,l,j:integer;
BEGIN
  randomize;
  writeln('Массив:');
  for i:=1 to n do
    begin
    mas[i]:=-10+random(21);
    write(mas[i]:4);
    end;
  writeln;
  writeln('На сколько позиций нужно сдвинуть массив?');
  readln(l);
  for i:=1 to l do
    begin
    k:=mas[n];
    for j:=n downto 2 do
      mas[j]:=mas[j-1];
    mas[1]:=k;
    end;
  writeln('Массив после сдвига на ',l,' позиций вправо:');
  for i:=1 to n do
    write(mas[i]:4);
  readln;
END.