PROGRAM char_demonstration;

VAR letter  : CHAR;
    number  : CHAR;
    dogfood : CHAR;

BEGIN
  letter := 'P';
  number := 'A';
  dogfood := 'S';
  WRITE(letter,number,dogfood);
  letter := number;             (* This is now the 'A' *)
  number := 'L';
  dogfood := 'C';
  WRITE(dogfood,letter,number);
END.