inserted = FALSE;
while ((i > 1) && !inserted)
if (data[i - l].key < data[i].key)
{
interchange(data,i,i - 1);
i--;
}
else
inserted = TRUE;