Не правильно выводится смещённый массив

const
  
  a = 11;
  b = 9;
  c = 12;
 
type
  arra = array [1..a] of integer;
  arrb = array [1..b] of integer;
  arrc = array [1..c] of integer;
 
var
  q: arra; w: arrb; e: arrc;
 
procedure io(var q: arra; w: arrb; e: arrc);
begin
  var i: integer;
  randomize;
  for i := 1 to a do
  begin
    q[i] := random(9);
    write(q[i]:2);
  end;
  
  writeln;
  
  for i := 1 to b do
  begin
    w[i] := random(9);
    write(w[i]:2);
  end;
  
  writeln;
  
  for i := 1 to c do
  begin
    e[i] := random(9);
    write(e[i]:2);
  end;
  
  writeln;
end;
 
procedure move(var q: arra; w: arrb; e: arrc);
begin
  var i, j, n, r, p, o, u, z, x, c: integer;
  
  n := 6;
  
  for j := 1 to n do
  begin
    for i := 1 to a - 1 do
    begin
      r := q[i];
      q[i] := q[i + 1];
      q[i + 1] := r;
    end; 
  end;
  
  for i := 1 to a do
  begin
    write(q[i]:2);
  end;
  
  writeln;
  
  for j := 1 to n do
  begin
    for i := 1 to b - 1 do
    begin
      r := w[i];
      w[i] := w[i + 1];
      w[i + 1] := r;
    end; 
  end;
  
  for i := 1 to b do
  begin
    write(w[i]:2);
  end;
  
  writeln;
  
  for j := 1 to n do
  begin
    for i := 1 to c - 1 do
    begin
      r := e[i];
      e[i] := e[i + 1];
      e[i + 1] := r;
    end; 
  end;
  
  for i := 1 to c do
  begin
    write(e[i]:2);
  end;
  
  
end;
 
begin
  io(q, w, e);
  writeln;
  move(q, w, e);
end.