(Under construction.)
procedure DefineSize (var F: any file; NewSize: Integer);
`DefineSize' is an ISO-10206 Extended Pascal extension.