program ArrayOfCharExample;
var
ArrayOfChar: packed array[1..10] of char;
begin
ArrayOfChar := 'Y';
Write(ArrayOfChar);
ArrayOfChar := 'W';
Write(ArrayOfChar,'Z');
Write(length(ArrayOfChar));
end.
cHJvZ3JhbSBBcnJheU9mQ2hhckV4YW1wbGU7CnZhcgogIEFycmF5T2ZDaGFyOiBwYWNrZWQgYXJyYXlbMS4uMTBdIG9mIGNoYXI7CmJlZ2luCiAgQXJyYXlPZkNoYXIgOj0gJ1knOwogIFdyaXRlKEFycmF5T2ZDaGFyKTsKICBBcnJheU9mQ2hhciA6PSAnVyc7CiAgV3JpdGUoQXJyYXlPZkNoYXIsJ1onKTsKICBXcml0ZShsZW5ndGgoQXJyYXlPZkNoYXIpKTsKZW5kLg==