Quellcode klappt nicht

[Alexander Roth]

Wieso klappt dieser doch sehr einfache Quelltext nicht?

Delphi-Quellcode:

procedure intxtschreiben(pfad,text:string;einmalig:boolean);
var txt:textfile;
begin
assignfile(txt,pfad);
if fileexists(pfad) then reset(txt) else rewrite(txt);
writeln(txt,inttostr(lauf));
closefile(txt);
end;

Compilieren tut er das gut, aber beim ausführer maktiert er die Zeile mit writeln und meldet:
---------------------------
Debugger Exception Notification
---------------------------
Project Corioliskraft.exe raised exception class EInOutError with message 'I/O error 105'. Process stopped. Use Step or Run to continue.
---------------------------

Hinweis lauf eristiert und die Variablen wurden alle ordnungsgemäß zugewiesen.