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

(* жХОЛГЙС notfound ЧЩЧЕУФЙ УППВЭЕОЙЕ ПВ ПЫЙВЛЕ Й ЧЩКФЙ *)

uses linux;

function notfound(progname, filename: string):integer;
begin
writeln(stderr, progname, ': ЖБКМ ', filename, ' ОЕ ОБКДЕО');
halt(1);
end;

var
fd:integer;
begin
if paramcount < 1 then
halt(0);
fd := fdopen (paramstr(1), 0, 0);
if (fd = -1) then
notfound (paramstr(0), paramstr(1));
fdclose (fd);
end.