Bei deiner 2. Prozedur wird die Datei, wenn sie vorhanden ist ja garnicht geöffnet!
Man macht des im allgemeinen so:
Delphi-Quellcode:
assignfile(f, 'datei.dat');
{$I-}
reset(f);
{$I+}
if ioresult <> 0 then rewrite(f);
write(f, a);
closefile(f);
So hab ichs zumindest damals mit Turbo Pascal gelernt.
gruß
Mario