program ideone;
type
TVector = packed record
x, y, z: single;
end;
const
aVectors : Array[0..1] of TVector = ((x:1;y:1;z:1),(x:2;y:2;z:2));
begin
(* your code goes here *)
end.
cHJvZ3JhbSBpZGVvbmU7Cgp0eXBlClRWZWN0b3IgPSBwYWNrZWQgcmVjb3JkCngsIHksIHo6IHNpbmdsZTsKZW5kOwoKY29uc3QKCWFWZWN0b3JzIDogQXJyYXlbMC4uMV0gb2YgVFZlY3RvciA9ICgoeDoxO3k6MTt6OjEpLCh4OjI7eToyO3o6MikpOwpiZWdpbgoJKCogeW91ciBjb2RlIGdvZXMgaGVyZSAqKQplbmQu