record_exists -a (p_record array[], p_record _, int array_length)
{
  equals -a (p_record current, p_record _)
  {
    ...
  }

  for (cntr = 0; cntr < array_length; cntr ++)
  {
    if (array[cntr]->equals (record)) return 1;
  }
  else
  {
    return 0;
  }
}
