Testing NUL character output from Pascal.

no_nul_char.pas

Program NoNulChar;

TYPE
   Buffer = PACKED ARRAY[0..200] of char;

VAR
   B : Buffer;

BEGIN
   readln(B);
   writeln(B);
END.

no_nul_char_output.txt

[vagrant debian]:assignment1$ echo 'text' | ./no_nul_char | od -a
0000000   t   e   x   t  nl
0000005

nul_char.pas

Program NulChar;

TYPE
   Buffer = PACKED ARRAY[0..200] of char;

VAR
   B : Buffer;
   I : integer;

BEGIN
   readln(B);
   FOR I := 0 to 200 DO
      write(B[I]);
END.

nul_char_output.txt

[vagrant debian]:assignment1$ echo 'text' | ./nul_char | od -a
0000000   t   e   x   t nul nul nul nul nul nul nul nul nul nul nul nul
0000020 nul nul nul nul nul nul nul nul nul nul nul nul nul nul nul nul
*
0000300 nul nul nul nul nul nul nul nul nul
0000311