delete( r )
	RecordArray r;

	{
	extern int n;
	if ( n<1 ) Error /*** extracting from an empty Heap ***/;
	else	{
		r[1] = r[n];
		siftup( r, 1, --n );
		}
	};