type
  TPoint = record
    X, Y: Integer;
  end;

  TSize = record
    Width, Height: Integer;
  end;

  TRect = record
    Point: TPoint;
    Size: TSize;
  end;

var
  Rect: TRect;
begin
  Rect.Point.X := 3;
  Rect.Point.Y := 4;
  Rect.Size.Width := 10;
  Rect.Size.Height := 12;

  WriteLn('point.x is ', Rect.Point.X);
  WriteLn('size.width is ', Rect.Size.Width);
end.