How to write SAS code about this combination

[PeterClemmensen]

Sure

data _null_;
   length vars $ 20000;
   do i=1 to 52-1;
      do j=i+1 to 52;
         vars = catx(' ', vars, cats('pair_', i, '_', j));
      end;
   end;
   call symputx('vars', vars);
run;

data want(keep=itempos key pair:);
   set have;
   array c {*} col:;
   array p {1326} $ 50 &vars.;
   do i=1 to 52-1;
      do j=i+1 to 52;
         idx=sum(idx, 1);
         if       c[i]=c[j]=key    then p[idx] = "same resp and both wrong";
         else if  c[i]=c[j] ne key then p[idx] = "same resp and both wrong";
         else if  i=key | j=key    then p[idx] = "different resp and one of them correct";
         else                           p[idx] = "different resp and both wrong";
      end;
   end;
run;

[superbug]

@PeterClemmensen 

it worked!

Thanks much for your reply!

I very much appreciate your time and help!!

[superbug]

@novinosrin 

Thanks much for the explanation and teaching!

very much appreciate your help!

[superbug]

oops, here is the file. 

[novinosrin]

Seems like you reposted a duplicate of https://communities.sas.com/t5/SAS-Programming/How-to-write-SAS-code-about-this-combination/m-p/6256...

My apologies if my solution didn't work for you.