Паскаль / 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.