program Project1;{
    $APPTYPE CONSOLE}{
    $R *.res}uses  System.SysUtils;TYPE  Trec = record    Member1, Member2: Integer;  end;CONST  IntRec: Trec = (Member1: 55; Member2: 2);begin  Writeln(IntRec.Member1);  Writeln(IntRec.Member2);  Readln;end.

定义的时候，是可以进行赋值的 ，记录类型好神奇啊 ！