var
    pInt   : ^integer ;
    ValidP : boolean ;