if k>0
  then
       begin
            for i:=1 to n+k do {n - размер массива}
               a[i+k]:=a[i];
            for i:=1 to k do
               a[i]:=a[i+n];
       end;

Const
 N=20;
VAR
 A,B:Array [1..N] of Byte;
 k:ShortInt;
 i,j:Byte;
BEGIN
 Randomize;
 Writeln('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=Random(10);
   Write(A[i]:3);
  end;
 Writeln;
 Writeln;
 Write('k= ');
 Readln(k);
 Writeln;
 Writeln;
 If Abs(k)>=N then
  Writeln('Error: k too big!')
 else
 If k=0 then B:=A
 else
 If (k>0) then
  begin
   for j:=1 to N-k do B[j+k]:=A[j];
   for j:=N-k+1 to N do B[j-N+k]:=A[j];
  end
 else
 begin
  for j:=1-k to N do B[j+k]:=A[j];
  for j:=1 to -k do B[N+k+j]:=A[j];
 end;
 Writeln('New array:');
 For i:=1 to N do Write(B[i]:3);
 Readln;
END.