（　´Ｖ｀）
良い書き方を思いついたのれす。
変数宣言を見なくても、変数の型が一発で分かるのれす。
全変数の初期化なんぞも簡単にできるのれす。

例）

type
　TInt = (Age);
　TDbl = (Height, Weight);
　TStr = (LastName, FirstName);

var
　int:array [TInt] of Integer;
　dbl:array [TDbl] of Double;
　str:array [TStr] of string;
begin
　Write( 'LastName > ' );
　ReadLn( Str[ LastName ] );

　Write( 'FirstName > ' );
　ReadLn( Str[ FirstName ] );

　Write( 'Age > ' );
　ReadLn( Int[ Age ] );

　Write( 'Height(cm) > ' );
　ReadLn( Dbl[ Height ] );

　Write( 'Weight(kg) > ' );
　ReadLn( Dbl[ Weight ] );

　WriteLn( Format('%s %s %d Years old. %f kg, %f cm',[
　　Str[LastName],
　　Str[FirstName],
　　Int[Age],
　　Dbl[Weight],
　　Dbl[Height]
　]));

end.