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;
						temp:=sdvig_array[j];
							for k:=j downto i do begin
								sdvig_array[k]:=sdvig_array[k-1];
												 end;
						sdvig_array[i]:=temp;
	END;

		Function check_index (n:integer):integer;

		VAR
			b:integer;

     Begin
		readln(b);
		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');




		repeat

			c:=check_index(n);
				b:=c;
					writeln('vvedite noviy index elementa');
			c:=check_index(n);
				a:=c;
					writeln;
			if b>a then
				arras:=sdvig_array(arr,(a),(b))
				    else
				arras:=sdvig_array(arr,(b),(a));

			arr:=arras;
			write_array(arr);
			S:=readkey;
     writeln;
     writeln;

       until S=#13;

     End.