Lazarus Pascal - read write file teks

Bagaimana caranya menciptakan file teks ? coba pelajari yang ini :

var f:textfile;


begin
writeln('hello lazarus');
assignfile(f,'fileteks_coba.txt');
rewerite(f);  // kalau filenya sudah ada pake reset(f); 
              // kalau mau nambah pake append(f);
writeln(f,random(9999));
writeln(f,random(9999));
writeln(f,random(9999));
writeln(f,random(9999));
close(f);
end

bagaimana hasilnya? buka saja fileteks_coba.txt