[Zergatul]

type
character = record
x,y,z: Integer;
name: string;
....
end;
var
chars: array [1..5000] of character;