type
  TSize = record
    Width, Height: Integer;
  end;

  TPoint = record
    Top, Left: Integer;
  end;

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

var
  Rect: TRectangle;
begin
  //records are value types,
  //no Create is needed
  Rect.Size.Width := 10;
  Rect.Size.Height := 10;
  Rect.Point.Top := 5;
  Rect.Point.Left := 5;

  WriteLn(Rect.Point.Left);
end.