TP3/shell/tests/fixtures/t131_chararray.pas

program chararr;
var A : array[1..5] of char;
begin
  A := 'hi   ';
  writeln(A)
end.