unit testu3; interface type tr = record end; implementation end.