Выполнить циклический сдвиг массива вправо на 4 элемента

program z;
uses crt;
var i,n:byte; k:integer;
a:array [1..12] of integer;
begin
     clrscr;
     randomize;
     writeln('Èñõîäíûé ìàññèâ');
     for i:=1 to 12 do
         begin
              a[i]:=random(25)-12;
              write(a[i],' ');
         end;
     writeln;
     for n:=1 to 4 do
         begin
              k:=a[12];
              for i:=12 downto 2 do
                  a[i]:=a[i-1];
              a[1]:=k;
         end;
     writeln('Ðåçóëüòàò:');
     for i:=1 to 12 do
         write(a[i],' ');
     writeln;
end.

const n=12;
Type Tarray=array[1..n] of integer;
var
 a:Tarray;
 i,s:integer;
{===========================}
function Sdvig1(var a:Tarray):Tarray;
var j:integer;
begin
  for j:=1 to n-1 do  result[j]:=a[j+1];
  result[n]:=a[1];
end;
{------------}
procedure InitArray(var a:Tarray);
var j:integer;
begin
  for j:=1 to n do a[j]:=j;
end;
{------------}
procedure OutPutArray(var a:Tarray);
var j:integer;
begin
  writeln ('Массив имеет вид: ');
  for j:=1 to n do write(a[j],' ');
  writeln;
end;
{===========================}
begin
 InitArray(a);
 OutPutArray(a);
 write('На сколько сдвигать '); readln(s);
 for i:=1 to s do a:=Sdvig1(a);
 OutPutArray(a);
 writeln;
end.