CloseFile

Declaration

procedure CloseFile(var f: file);

Description

Call CloseFile to close a file associated with the f parameter.

Example

AssignFile(OutputFile,NewFileName);

Rewrite(OutputFile);

AssignFile(InputFile,OldFileName);

Reset(InputFile);

Try

While not EOF(InputFile) do

Begin

Readln(InputFile,Line);

For I := 1 to Length(Line) Do

Line[I] := UpperCase(Line[I]);

Writeln(Outputfile, Line);

End;

Finally

CloseFile(InputFile);

CloseFile(OutputFile);

End;

Close;