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

(* рТПЗТБННБ addx ТБЪТЕЫБЕФ ДПУФХР ОБ ЧЩРПМОЕОЙЕ ЖБКМБ *)
uses linux,stdio;

const XPERM=0100; (* рТБЧП ОБ ЧЩРПМОЕОЙЕ ДМС ЧМБДЕМШГБ *)

var
k:integer;
statbuf:tstat;

begin
(* чЩРПМОЙФШ ДМС ЧУЕИ ЖБКМПЧ Ч УРЙУЛЕ БТЗХНЕОФПЧ *)
for k := 1 to paramcount do
begin
(* рПМХЮЙФШ ФЕЛХЭЙК ЛПД ДПУФХРБ Л ЖБКМХ *)
if not fstat(paramstr(k), statbuf) then
begin
writeln('addx: ПЫЙВЛБ ЧЩЪПЧБ stat ДМС ',paramstr(k));
continue;
end;
(*
рПРЩФБФШУС ТБЪТЕЫЙФШ ДПУФХР ОБ ЧЩРПМОЕОЙЕ
РТЙ РПНПЭЙ ПРЕТБФПТБ РПВЙФПЧПЗП ймй
*)
statbuf.mode := statbuf.mode or octal(XPERM);
if not chmod (paramstr(k), statbuf.mode) then
writeln('addx: ПЫЙВЛБ ЙЪНЕОЕОЙС РТБЧ ДПУФХРБ ДМС ЖБКМБ ', paramstr(k));
end; (* лПОЕГ ГЙЛМБ *)
halt(0);
end.