USES CRT;VARt: file of char;BEGINassign(t,'c:\plik1.txt');{$I-}Reset(t); {sprawdzamy czy plik istnieje :)}{$I+}if IOResult=0 then reset(t) {jak plik istnieje, to go zacznie nadpisywac od poczatku}else rewrite(t); {jak pliku nie ma, to go utworzy}Close(t);END.
tak powinien wygladac w pelni sprawny program, ktorego brak pliku nie wylozy..