erace.pas

 {Erase.PAS}
 
 { Пример программы для процедуры Erase }
 
 Uses WinDos, WinCrt;
 
 Var F : File;
    Ch : Char;
 
 Begin
  { Получаем имя файла из командной строки }
  Assign(F, ParamStr(1));
  {$I-} { Отключаем контроль ошибок ввода/вывода }
  Reset(F);
  {$I+} { Включаем контроль ошибок ввода/вывода }
  If IOResult<>0 Then WriteLn('Не могу найти :', ParamStr(1))
   Else
  Begin
   Close(F);
   Write('Удалять ', ParamStr(1), ' (y/n) ?');
   ReadLn(Ch);
   If UpCase(Ch)='Y' Then Erase(F);
  End;
 End.