close.pas

{Close.PAS}
 
  { Пример программы для процедуры Close }
 
   Var F : File;
 
  Begin 
  Assign(F, '\AUTOEXEC.BAT'); { Открываем файл }
  Reset(F, 1);
  WriteLn('Размер файла = ', FileSize(F));
 Close(F);   { Закрываем файл }
End.