Дано три массива A[11], B[9], C[12]. Выполнить в каждом из них циклический зсув элементов влево на 6 разрядов — Pascal(Паскаль)

uses crt;
type mas=array[1..100]of byte;
procedure Vvod(var x:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
x[i]:=random(50);
end;
procedure Vyvod(var x:mas;n:byte;s:string);
var i:byte;
begin
writeln('Massiv ',s);
for i:=1 to n do
write(x[i],' ');
writeln;
writeln;
end;
procedure Sdvig(var x:mas;n:byte);
var i,j,r:byte;
begin
for j:=1 to 6 do
   begin
     r:=x[1];
     for i:=1 to n-1 do
       begin
         x[i]:=x[i+1];
       end;
     x[n]:=r;
   end;
end;
var a,b,c:mas;
begin
clrscr;
randomize;
Vvod(a,11);
Vvod(b,9);
Vvod(c,12);
Vyvod(a,11,'A:');
Sdvig(a,11);
Vyvod(a,11,'Asdvig:');
write('Press Enter...');
readln;
Vyvod(b,9,'B:');
Sdvig(b,9);
Vyvod(b,9,'Bsdvig:');
write('Press Enter...');
readln;
Vyvod(c,12,'C:');
Sdvig(c,12);
Vyvod(c,12,'Csdvig:');
write('Press Enter...');
readln
end.