How to work with Close command

How to work with Close command

To work with Close command

Description:

Closes an open file.

Declaration:

procedure Close(var F);

Example:

program Welcome;

var

a:file;

begin

Assign(a,'\AUTOEXEC>BAT');

Reset(a,1);

Writeln('File size= ',FileSize(a));

Close(a);

end.