RosettaCodeData/Task/Address-of-a-variable/Delphi/address-of-a-variable-2.pas

var
   crtMode: integer absolute $0040;
   str: string[100];
   strLen: byte absolute str;