follow is my program:
var
 a:array[1..10000]of longint;
 z:array[1..10000]of integer;
 i,j,k,n:longint;
begin
 fillchar(a,sizeof(a),0);
 fillchar(z,sizeof(z),0);
 read(n);
 for i:=1 to n do begin read(a[i],j);z[i]:=i;end;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[z[i]]>a[z[j]] then
    begin
     k:=z[i];
     z[i]:=z[j];
     z[j]:=k;
    end;
 i:=0;
 while i<n do
  begin
   writeln(z[i+1],' ',z[i+2]);
   inc(i,2);
  end;
end.