rename.pas

{Rename.PAS}
 
{ Пример программы для процедуры Rename }
 
Var F : File;
 
Begin
 { Переименовывает файл. Имена вводятся в командной строке. }
 If ParamCount <> 2 Then
  Begin
   WriteLn('Неверные параметры!');
   Halt(1);
  End;
 Assign(F, ParamStr(1));
 WriteLn('Переименовываю ', ParamStr(1), ' в ', ParamStr(2));
 Rename(F, ParamStr(2));
End.