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

uses linux;

const
workfile = 'junk'; (* ЪБДБФШ ЙНС ТБВПЮЕЗП ЖБКМБ *)

var
filedes:integer;
begin
(* пФЛТЩФШ, ЙУРПМШЪХС РПУФПСООХА Open_RDWR ЙЪ НПДХМС linux *)
(* жБКМ ПФЛТЩЧБЕФУС ДМС ЮФЕОЙС/ЪБРЙУЙ *)
filedes := fdopen (workfile, Open_RDWR);
if filedes = -1 then
begin
writeln('оЕЧПЪНПЦОП ПФЛТЩФШ ЖБКМ ', workfile);
halt(1); (* ЧЩИПД РП ПЫЙВЛЕ *)
end;
writeln('жБКМ ', workfile, ' ХУРЕЫОП ПФЛТЩФ, ДЕУЛТЙРФПТ ТБЧЕО ',filedes);
(*
* пУФБМШОБС РТПЗТБННБ
*)
halt(0); (* ОПТНБМШОЩК ЧЩИПД *)
end.