(* filename: ponter7error.pp *)

program pointerTest (output);

{

This program won't compile. You can't define a type in a record after you

define the record.

}

TYPE

IntPtr = ^Integer;{ pointer type for an integer variable}

APosVal = ^PosVals; { Pointer type for integer subrange}

PosVals = 0..MAXINT; {integer subrange}

RealPtr = ^Real;

BoolPtr = ^Boolean;

OneCourt = ^CourtType;{Pointer type for enumerated type variabale}

CourtType = (Racquetball, squash, handball, tennis, basketball);

(* Res = ^OneRes;*)

Node = record (* record is a reserved word *)

(* record is a heterogeneous data structure *)

data: integer;

next : nodePtr;

end;

NodePtr = ^Node;

begin

writeln (' this is a test');

end.