(* this program badly needs comments *)
(* be sure you understand everything in it*)
(* there may be a short quiz on Wednesday *)

program testPointers (input, output);

    type integerPointer = ^integer;
	 
	 var  first, second,myPointer : integerPointer;

begin
         if (first = nil) then
	    writeln (' first isn"t pointing anywhere ');

         new(first);
	 first := nil;
    
         new(first);	 
	 first^ := 5;
	 writeln (' the value in first is : ' , first^:7);	
         
         new(second);
	 second^ := first^;  
	 writeln (' the value in second is: ', second^:7);
 	 writeln (' the value in first is : ' , first^:7);
	 
 	 second^ := 14;
	 writeln (' the value in second is: ', second^:7);
 	 writeln (' the value in first is : ' , first^:7);
	 
	 second := first;  
         first^ := 37; 
	 writeln (' the value in second is: ', second^:7);
 	 writeln (' the value in first is : ' , first^:7);
	 
 	 dispose(first);
	 dispose(last);	
end.