Man critically injured by shark on Great Barrier Reef