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.