17 lines
363 B
ObjectPascal
17 lines
363 B
ObjectPascal
program test133;
|
|
var f:file;
|
|
buf:string;
|
|
begin
|
|
open(f, 'newfile.text', ModeOverwrite);
|
|
writeln(f,'This is a test file created by a Pascal program.');
|
|
writeln(f,'There is nothing else of interest here.');
|
|
close(f);
|
|
|
|
open(f, 'newfile.text', ModeReadonly);
|
|
while not eof(f) do
|
|
begin
|
|
readln(f,buf);
|
|
writeln(buf);
|
|
end;
|
|
close(f);
|
|
end.
|