[fpc-pascal]unix EOF

[Cyril Zlachevsky]

I try to find correct way finding end of file (EOF) in fpc-program, but 
not have success:
---cut ttt.pp---
var
     f           :       file of char;
     TmpChar     :       char;
begin
     TmpChar:=' ';
     Assign(f,paramstr(1));
     Reset(f);
     while (TmpChar <> #26) do read(f,TmpChar);
end.
---cut ttt.pp---

---cut---
$ ./ttt ttt.pp
Runtime error 100 at 0x08052164
   0x08052164
   0x080480B0
   0x00000000
---cut---

please help me to find right way!