For j:=1 to n do
  begin
  mas2[j]:=mas2[random];
//mas2[random];
  j:=j+1;
  end;


  For j:=1 to n do
  begin
  write(mas2[i]);
  j:=j+1;
  end;