fork download
  1. program ArrayOfCharExample;
  2. var
  3. ArrayOfChar: packed array[1..10] of char;
  4. begin
  5. ArrayOfChar := 'Y';
  6. Write(ArrayOfChar);
  7. ArrayOfChar := 'W';
  8. Write(ArrayOfChar,'Z');
  9. Write(length(ArrayOfChar));
  10. end.
Success #stdin #stdout 0s 5304KB
stdin
Standard input is empty
stdout
Y         W         Z10