Source PostScript (delarrayelt.pps)

/delarrayelt {
3 dict begin
   /i exch def
   /table exch def
   /j 0 def
   [
   table length {
      j i ne {table j get} if
      /j j 1 add store
   } repeat
   ]
end
} def