1program assign (input, output); 2 3var a : array [1..100] of char; 4begin 5 a := 'blah'; 6 write(output, a); 7end. 8