delphi basics const of record

program RecordConstDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TPerson = record
    const
      MaxNameLength = 50;
      MaxAge = 120;
    var
      Name: string;
      Age: Integer;
  end;

var
  Person: TPerson;

begin
  Person.Name := 'John Doe';
  Person.Age := 30;

  Writeln('Person Name: ' + Person.Name);
  Writeln('Person Age: ' + IntToStr(Person.Age));

  Readln;
end.