Why won't this work?...

11 Dec 1998

      I get the following error with the program listed below:

0c:/nano/tmp2.exe: could not read all the data from file `tmp.txt' in 
`BlockRead' (#414)

Seems that it prints the first character, but then ends unexpectedly. The 
file tmp.txt is below the program.

{--- Cut here for tmp2.pas ---}
program Tmp2;

var
  F  : File;
  Ch : Char;

begin
  Assign( F, 'tmp.txt' );
  Reset( F, 1 );
  while not EOF(F) do
  begin
    BlockRead( F, Ch, 1 );
    Write( Ch );
  end;
  Close( F );
end.
{--- Cut here ---}

{--- Cut here for tmp.txt ---}
0x3dF
0X3Af
++
TestOJL,
++=
  1e0
1.2
22.3e-3
309
,
_1234567890_1234567890_1234567890_1234567890_1234567890_1234567890
 _Testing_123
This_is_a_really_long_variable_in_fact_only_part_of_it_will_be_kept_the_rest_will_be_ignored
' '
''
''''
print( 'foo' )
     foo
 'a string' 'another string'
 __test__

==
-=
<<
...
...
=
if
main print() endmain
{--- Cut here ---}
See ya!
Orlando Llanes

    "Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!"

"Look out fo' flyeeng feet"
      O__/                     a010111t@bc.seflin.org
    \/|____.  O
      <__.  \/\>
             / \
____________|___\______    http://ourworld.compuserve.com/homepages/Monkey414