Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 3 / move

(* рТПЗТБННБ move РЕТЕЙНЕОПЧБОЙЕ ЖБКМБ *)
uses linux,stdio;

const
usage = 'рТЙНЕОЕОЙЕ: move ЖБКМ1 ЖБКМ2'#10;

(*
* рТПЗТБННБ ЙУРПМШЪХЕФ БТЗХНЕОФЩ ЛПНБОДОПК УФТПЛЙ,
* РЕТЕДБЧБЕНЩЕ ПВЩЮОЩН УРПУПВПН.
*)
begin
if (paramcount <> 2) then
begin
fprintf(stderr, usage, []);
halt(1);
end;
if not link(paramstr(1), paramstr(2)) then
begin
perror('пЫЙВЛБ Ч ЧЩЪПЧЕ link');
halt(1);
end;
if not unlink (argv[1]) then
begin
perror('пЫЙВЛБ Ч ЧЩЪПЧЕ unlink');
unlink(paramstr(2));
halt(1);
end;
writeln('хУРЕЫОПЕ ЪБЧЕТЫЕОЙЕ');
halt(0);
end.