program vcsere;

uses crt;

const n=10; k=22;

var i, j: integer;
    lap: array[1..10] of integer;

procedure feltolt(n: integer);
  var i: integer;
  begin
    for i:=1 to n do
      lap[i]:=i;
  end;

procedure beszur(j: integer);
  var i, temp: integer;
  begin
    temp:=lap[1];
    for i:=2 to j do
      lap[i-1]:=lap[i];
    lap[j]:=temp;
  end;

begin
  clrscr;
  randomize;
  writeln('Kever‚s v‚letlen cser‚vel');
  writeln;
  feltolt(n);
  for i:=1 to k do
    begin
      j:=random(n)+1;
      beszur(j);
    end;
  for i:=1 to n do
    write(lap[i], '; ');
  readln;
end.