type aaa=record
           key:integer;
           num:integer;
         end;
var
  s:array[1..101]of aaa;
  i,j,k,l,m,n:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(s[i].key);
      s[i].num:=i;
    end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if s[j].key<s[i].key then begin
                                  s[101]:=s[i];
                                  s[i]:=s[j];
                                  s[j]:=s[101];
                                end;
  for i:=1 to n do
    begin
      write(s[i].key,' ');
      writeln(s[i].num);
    end;
end.

procedure fit(a,b:arr);
begin
  nc:=0;
  for i:=1 to na do
    for j:=1 to nb do
      begin
        if a[i]=b[j] then begin inc(nc); 
        b[j]:=maxlongint;
        c[nc]:=a[i];
      end;
end; 

收到，