{ %fail } {$mode iso} unit tisogoto3; interface label 1; implementation end.