The close procedure closes a file variable, and the file or pipe associated with it. Before the file variable is closed, it is flushed as if the built-in procedure flush was called. NOTE: The file variable must be open when this procedure is called.
The close procedure's only parameter is a reference to the file variable to close.
function CountLines(name : filename) : integer;
var
count : integer;
f : text;
begin
count := 0;
reset(f, name);
while not eof(f) do
begin
readln(f);
inc(count);
end;
CountLines := count;
close(f)
end;
Operating Systems: All
Standard Pascal: No