type
TPoint = record
X, Y: Integer;
end;
var
P1: TPoint;
begin
P1.X := 1;
P1.Y := 2;
//p1 is (1, 2)
//fields of a local record are not
//initialized: reading before
//assignment gives garbage
WriteLn('p1 is (', P1.X, ', ', P1.Y, ')');
end.