Паскаль / do9 / iriepas201 / Irie Pascal / samples / rename

(* This program renames a single file *)
program rename;
var
   f : text;

   procedure syntax;
   begin
      writeln('Renames a file');
      writeln('Syntax: ivm rename old new');
      writeln('  renames a file named ''old'' to ''new''');
      exitcode := 1;
      halt
   end;

begin
   if paramcount <> 2 then
      syntax;
   assign(f, paramstr(1));
   rename(f, paramstr(2))
end.