Дан массив размера N. Осуществить циклический сдвиг

var a,mas:array [1..100] of integer;
    i,n,j,k:integer;
begin
randomize;
 Write('Enter size of array = ');readln(n);
 Write('Array [start] = ');
 for i := 1 to n do
    begin
      mas[i]:=random(50)+1;
      a[i]:=mas[i];
      Write(mas[i],' ');
    end;
 Writeln;
 Write('Step = ');readln(k);
 Write('Array [finish] = ');
 while (k<>0) do
  begin
  j:=mas[n];
    for I := 2 to n do
       begin
         mas[i]:=a[i-1];
       end;
    mas[1]:=j;
    writeln;
    for i := 1 to n do
    begin
      a[i]:=mas[i];
      Write(mas[i],' ');
    end;
    dec(k);
  end;
  readln;
end.

var a,mas:array [1..100] of integer;
    i,n,j,k:integer;
begin
randomize;
 Write('Enter size of array = ');readln(n);
 Write('Array [start] = ');
 for i := 1 to n do
    begin
      mas[i]:=random(50)+1;
      a[i]:=mas[i];
      Write(mas[i],' ');
    end;
 Writeln;
 Write('Step = ');readln(k);
 Write('Array [finish] = ');
 while (k<>0) do
  begin
  j:=mas[1];
    for I := 1 to n-1 do
       begin
         mas[i]:=a[i+1];
       end;
    mas[n]:=j;
    writeln;
    for i := 1 to n do
    begin
      a[i]:=mas[i];
      Write(mas[i],' ');
    end;
    dec(k);
  end;
  readln;
end.