[fpc-pascal] fpwrite buffers issues

[ik]

SGkgU29ycnkgZm9yIHRoZSBkZWxheSBpbiByZXNwb25kaW5nCgpPbiAxMC84LzA3LCBWaW5jZW50
IFNuaWpkZXJzIDx2c25pamRlcnNAcXVpY2tuZXQubmw+IHdyb3RlOgo+IGlrIHNjaHJlZWY6Cj4K
PiA+IEhlbGxvIExpc3QsCj4KPiA8c25pcD4KPgo+ID4KPiA+IFRoZW4gSSB0cmllZCB0byBkbyB0
aGUgZm9sbG93aW5nIGNvZGUsIHRoYXQgY29udGludWUgdG8gd3JpdGUgdGhlCj4gPiBidWZmZXIg
Y29udGVudCB1bnRpbCBub3RoaW5nIG1vcmUgdG8gd3JpdGUsIGJ1dCBpdCByZWFkcyB3cm9uZyBk
YXRhOgo+ID4KPiA+IHN0YXJ0X2NvdW50ICA6PSAwOwo+ID4gb3V0cHV0X2NvdW50IDo9IHJlYWRj
b3VudCAqIHNpemVvZihjc2hvcnQpOwo+ID4gcmVhZF9jb250ZW50IDo9IHJlYWRfY29udGVudF9m
cm9tLi4uLiguLi5AQnVmZmVyWzBdLCBNQVhfQlVGRkVSKTsKPiA+IHdoaWxlIChyZWFkX2NvbnRl
bnQgPiAwKSBkbwo+ID4gIGJlZ2luCj4gPiAgICB3aGlsZSAod3JpdGVfY291bnQgPiAwKSBkbwo+
ID4gICAgICBiZWdpbgo+ID4gICAgICAgIHdyaXRlX2NvdW50IDo9IGZwd3JpdGUgKGZkLCBAQnVm
ZmVyW3N0YXJ0X2NvdW50XSwgb3V0cHV0X2NvdW50KTsKPiA+ICAgICAgICBpZiAod3JpdGVfY291
bnQgPiAwKSB0aGVuCj4gPiAgICAgICAgICAgYmVnaW4KPiA+ICAgICAgICAgICAgIGRlYyAob3V0
cHV0X2NvdW50LCB3cml0ZV9jb3VudCk7Cj4gPiAgICAgICAgICAgICBpbmMgKHN0YXJ0X2NvdW50
LCB3cml0ZV9jb3VudCk7Cj4gPiAgICAgICAgICAgZW5kIDsKPiA+ICAgICBlbmQ7Cj4gLy8gdGhp
cyBzZWVtcyBtaXNzaW5nOgo+ICAgICAgICAgc3RhcnRfY291bnQgIDo9IDA7Cj4gICAgICAgICBv
dXRwdXRfY291bnQgOj0gcmVhZGNvdW50ICogc2l6ZW9mKGNzaG9ydCk7CgpXZWxsIGl0IHdhcyBt
aXNzaW5nIGZyb20gbXkgUG9DIDopIGJ1dCB0aGUgcHJvYmxlbSBzdGlsbCBleGlzdHMuCkknbSBh
dHRhY2hpbmcgdGhlIGZ1bGwgcHJvZ3JhbSAoaXQgZ29lcyB0byBsaWJzZG5maWxlKS4KCj4KPiA+
ICAgIHJlYWRfY29udGVudCA6PSByZWFkX2NvbnRlbnRfZnJvbS4uLi4oLi4uQEJ1ZmZlclswXSwg
TUFYX0JVRkZFUik7Cj4gPiBlbmQ7Cj4gPgo+ID4gSSdtIHVzaW5nIHVidW50dSBMaW51eCBhbWQ2
NCB1c2luZyBGUEMgMi4yLjAKPiA+Cj4KPiBWaW5jZW50CgpUaGFuayB5b3UsCklkbwotLSAKaHR0
cDovL2lrLmhvbWVsaW51eC5vcmcvCi0tLS0tLS0tLS0tLS0tIG5leHQgcGFydCAtLS0tLS0tLS0t
LS0tLQpBIG5vbi10ZXh0IGF0dGFjaG1lbnQgd2FzIHNjcnViYmVkLi4uCk5hbWU6IHNmcGxheS5w
cApUeXBlOiBhcHBsaWNhdGlvbi9vY3RldC1zdHJlYW0KU2l6ZTogNzcwNCBieXRlcwpEZXNjOiBu
b3QgYXZhaWxhYmxlClVybCA6IGh0dHA6Ly9saXN0cy5mcmVlcGFzY2FsLm9yZy9saXN0cy9mcGMt
cGFzY2FsL2F0dGFjaG1lbnRzLzIwMDcxMDEyL2FlZDFiNjkxL3NmcGxheS0wMDAxLm9iago=