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.