1*44143Sbosticprogram assign (input, output); 2*44143Sbostic 3*44143Sbosticvar a : array [1..100] of char; 4*44143Sbosticbegin 5*44143Sbostic a := 'blah'; 6*44143Sbostic write(output, a); 7*44143Sbosticend. 8