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

(* рТЙНЕТ ЙУРПМШЪПЧБОЙС ЧЩЪПЧБ access *)
uses linux,stdio;

const
filename = 'afile';

begin
if not access (filename, R_OK) then
begin
fprintf(stderr, 'рПМШЪПЧБФЕМШ ОЕ ЙНЕЕФ ДПУФХРБ ОБ ЮФЕОЙЕ Л ЖБКМХ %s'#10, [filename]);
halt(1);
end;
writeln(filename, ' ДПУФХРЕО ДМС ЮФЕОЙС, РТПДПМЦБЕН');
(* пУФБМШОБС РТПЗТБННБ *)
end.