6
procedure do_error(l : longint);
8
writeln('Error near number ',l);
17
if FileExists('datetest.dat') then
19
Assign(f,'datetest.dat');
23
if FileExists('datetest.dat') then
26
FileClose(FileCreate('datetest.dat'));
28
if not(FileExists('datetest.dat')) then
31
dateTime := IncMonth(Now, -1);
32
if FileSetDate('datetest.dat', DateTimeToFileDate(dateTime))<>0 then
35
if FileExists('datetest.dat') then
37
Assign(f,'datetest.dat');