program TestLength; begin if Length('') <> 0 then halt(1); end.