Type
d<T> = record
x:T;
end;
begin
var a:d<real>;
a.x:= 7.7;
writeln(a.x);
end.