[fpc-pascal] var r: record = () initialization

[Michael Van Canneyt]

CgpPbiBGcmksIDMwIE1heSAyMDA4LCBMIHdyb3RlOgoKPiBDb25zaWRlciBsb2NhbCBwcm9jZWR1
cmUgc2NvcGUgc3RhY2sgcmVjb3JkcyBpbiBNT0RFIE9CSkZQQzoKPiAKPiBwcm9jZWR1cmUuLi4u
Cj4gdmFyCj4gUjE6IFRTb21lUmVjb3JkID0gKCk7Cj4gUjI6IFRTb21lUmVjb3JkOwo+IAo+IHBy
b2NlZHVyZS4uLi4KPiB2YXIKPiBPMTogVFNvbWVPbGRPYmplY3QgPSAoKTsKPiBPMjogVFNvbWVP
bGRPYmplY3Q7Cj4gCj4gSW4gdGhlIGNhc2Ugb2YgUjEgYW5kIE8xLCBpdCBzZWVtcyB0aGUgcmVj
b3JkJ3MgZmllbGRzIGFyZSBpbml0aWFsaXplZCB0bwo+IHplcm8sIGV2ZW4gdGhvdWdoIHRoZSBm
aWVsZHMgYXJlIG5vdCBzcGVjaWZpZWQgaW5zaWRlIHRoZSBicmFja2V0cy4KPiAKPiAoUjIgYW5k
IE8yIGFyZSB1bmluaXRpYWxpemVkIC0gYW5kIGFyZSBub3QgdGhlIHNhbWUgYXMgUjEgYW5kIE8x
KQo+IAo+IElzIHRoaXMgZ3VhcmFudGVlZD8gQ2FuIHRoaXMgY2hhbmdlIGluIHRoZSBmdXR1cmUg
b3IgZG9lcyBpdCBkaWZmZXIgYWNyb3NzCj4gcGxhdGZvcm1zPyBUaGlzIHdvdWxkIGJlIGEgY2Fz
ZSB3aGVyZSBtb2Rlcm4gcGFzY2FsIGNvdWxkIHJlYWxseSB1c2Ugc29tZQo+IGNsZWFybHkgZGVm
aW5lZCBsYW5ndWFnZSBzZW1hbnRpY3MgLSBzcGVjaWZ5aW5nIHRoZSBiZWhhdmlvciBvZiB0aGVz
ZQo+IHNpdHVhdGlvbnMuCj4gCj4gSSByZWFkIGluIHRoZSBmcGMgbWFudWFsIHRoYXQgd2hlbiB0
aGUgY29tcGlsZXIgd2FybnMgdGhhdCBzb21lIGZpZWxkcyBtYXkgbm90Cj4gYmUgaW5pdGlhbGl6
ZWQsIHRoZXkgYXJlIHN0aWxsIGluaXRpYWxpemVkICh3aGljaCBpcyBhIGJpdCBjb25mdXNpbmcg
RW5nbGlzaCkuCj4gCj4gUXVvdGU6Cj4gIldhcm5pbmc6IFNvbWUgZmllbGRzIGNvbWluZyBhZnRl
ciDigJ1hcmcx4oCdIHdlcmVu4oCZdCBpbml0aWFsaXplZAo+IFlvdSBjYW4gbGVhdmUgc29tZSBm
aWVsZHMgYXQgdGhlIGVuZCBvZiBhIHR5cGUgY29uc3RhbnQgcmVjb3JkIHVuaW5pdGlhbGl6ZWQK
PiAodGhlIGNvbXBpbGVyIHdpbGwgaW5pdGlhbGl6ZSB0aGVtIHRvIHplcm8gYXV0b21hdGljYWxs
eSkuIFRoaXMgbWF5IGJlIHRoZQo+IGNhdXNlIG9mIHN1YnRsZSBwcm9ibGVtcy4iCj4gCj4gUmVn
YXJkaW5nICJ0aGUgY29tcGlsZXIgd2lsbCBpbml0aWFsaXplIHRoZW0gdG8gemVybyIuLiB0aGlz
IGluIGZhY3QgbWVhbnMKPiB0aGF0IHRoZXkgKmFyZSogaW5pdGlhbGl6ZWQgdG8gImRlZmF1bHRz
IiBhbmQgc2F5aW5nIHRoZXkgYXJlICJub3QKPiBpbml0aWFsaXplZCIgcmVhbGx5IEkgZ3Vlc3Mg
bWVhbnMgbm90IGluaXRpYWxpemVkIGJ5ICJ0aGUgcHJvZ3JhbW1lciIuIAoKQ29ycmVjdC4KCj4g
V2hhdCBJCj4gd2lzaCB0byBjb25maXJtIGlzIHRoZSBwb3J0YWJpbGl0eSBvZiB0aGlzIHN5bnRh
eCBhbmQgd2hldGhlciBpdCBkb2VzCj4gaW5pdGlhbGl6ZSBmaWVsZHMgdG8gemVybyBhbHdheXMs
IGNvbnNpc3RlbnRseSwgbm8gbWF0dGVyIHdoYXQgcGxhdGZvcm0sIGV0Yy4KClRoZSBjb21waWxl
ciB3aWxsIGluaXRpYWxpemUgdG8gemVybyBleHBsaWNpdGx5LCBpZiBhIHBhcnQgb2YgdGhlIHJl
Y29yZCAKaXMgaW5pdGlhbGl6ZWQuIFRoaXMgcGFydCBpcyBwb3J0YWJsZSBhbmQgZ3VhcmFudGVl
ZC4KCklmIHlvdSBqdXN0IGRlY2xhcmUgYSB2YXJpYWJsZSwgeW91IG1heSBub3QgYXNzdW1lIGFu
eXRoaW5nLgpUaGUgcGFzY2FsIHNwZWNzIHNheSBleHBsaWNpdGx5IHRoYXQgeW91IHNob3VsZCBu
b3QgcmVseSBvbiB2YXJpYWJsZXMgCmJlaW5nIGluaXRpYWxpemVkLgoKPiBJdCB3b3VsZCBiZSBu
aWNlIGlmIGl0IGRpZCwgYmVjYXVzZSB0aGlzIHdvdWxkIG1lYW4gdGhlcmUgaXMgbm8gbmVlZCBm
b3IgYQo+IHByZXZpb3VzICJBVVRPSU5JVCIgZmVhdHVyZSBpZGVhIEkgc3VnZ2VzdGVkIC0gaXQg
YWxyZWFkeSBleGlzdHMuCgpZb3UgZG9uJ3QgbmVlZCBhdXRvaW5pdC4KCkp1c3QgZG8gYQoKdmFy
CiAgU29tZXRoaW5nIDogU29tZVR5cGUgPSBTb21lVmFsdWU7CgpNaWNoYWVsLgo=