摘要：
TARec=记录A1：字符串；A2：字符串；终止TBRec=记录A1：字符串；A2：字符串；ARec：TARec；终止PAppWindow=^TAppWindow；TAppWindow=记录宽度，高度：整数；CaptionBarHeight：整数；终止varFARec:TARec=（A1:“”；A2:“”
TARec = record
A1: string;
A2: string;
end;
TBRec = record
A1: string;
A2: string;
ARec: TARec;
end;
PAppWindow = ^TAppWindow;
TAppWindow = Record
Width, Height : Integer;
CaptionBarHeight : Integer;
end;
var
FARec: TARec = (A1: ''; A2: '');
BRec: TBRec = (A1: ''; A2: ''; ARec: (A1: ''; A2: ''));
i: Integer = 100;
Window : TAppWindow = (Width:800; Height:600; CaptionBarHeight:26);
全局变量可以直接初始化，但是局部变量不允许。