Program Sortirovka_massiva;
 Uses Crt;
	Const  n=6;
			m=100;
	Type

			array_type=array [1..n] of integer;


	Var
				a,b,c: integer;
				arr,arras:array_type;
				s:char;

		Procedure write_array (k:array_type);

			VAR

			j:integer;
	Begin

		for j:=1 to High(k) do
			write(k[j],' ');

	End;

		Procedure random_array (l:array_type);

			VAR

			i:integer;

	Begin

			randomize;

		for i:=1 to High(l) do

			arr[i]:=random(m);

     End;

		Function sdvig_array (arra:array_type;i,j:integer):array_type;

			Var
			k,temp:integer;

    Begin

		sdvig_array:=arra;

				if j>i then begin

						temp:=sdvig_array[j];

					for k:=j downto i do begin

						sdvig_array[k]:=sdvig_array[k-1];

										 end;
					sdvig_array[i]:=temp;

							end;

				if j<i then begin

						temp:=sdvig_array[i];

					for k:=i downto j do begin

						sdvig_array[k]:=sdvig_array[k-1];

										 end;

					sdvig_array[j]:=temp;
							end;
     End;

		Function check_index (b,n:integer):integer;



     Begin

		check_index:=b;



				while ((check_index <=0) or (check_index >n)) do begin
					writeln('vi vveli nepravilnoe znachenie, vvedite znachenie v diapazone ot 0 do n=',n);
						readln(check_index );
																 end;

     End;


   Begin

     writeln('ishodniy massiv');
		writeln;
     random_array(arr);
		write_array(arr);
     writeln;
     writeln;
     writeln('vvedite index elementa,kotoriy nugno perestavit');


     //S:=readkey;
//while S<>#27 do begin

     {readln(b);

   while ((b<=0) or (b>n)) do begin
		writeln('vi vveli nepravilnoe znachenie, vvedite znachenie v diapazone ot 0 do n=',n);
			readln(b);
							  end;
     writeln('vedite noviy index elementa');

     readln(a);
      while ((a<=0) or (a>n)) do begin
		writeln('vi vveli nepravilnoe znachenie, vvedite znachenie v diapazone ot 0 do n=',n);
			readln(a);
							  end;}
	readln(b);
	c:=check_index(b,n);
	readln(a);
	writeln('vvedite noviy index elementa');
	c:=check_index(a,n);

      writeln;

     arras:=sdvig_array(arr,(a),(b));
     write_array(arras);

     writeln;
     writeln;



          // if S=#13 then exit;


             //end;
     End.