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

uses linux,stdio;

(* рЕТЧЩК РТЙНЕТ ТБВПФЩ У ЛБОБМБНЙ *)
const
MSGSIZE=16;

(* ьФЙ УФТПЛЙ ЪБЛБОЮЙЧБАФУС ОХМЕЧЩН УЙНЧПМПН *)
msg1:array [0..MSGSIZE-1] of char = 'hello, world #1';
msg2:array [0..MSGSIZE-1] of char = 'hello, world #2';
msg3:array [0..MSGSIZE-1] of char = 'hello, world #3';

var
inbuf:array [0..MSGSIZE-1] of char;
fdr,fdw,j:longint;
begin
(* пФЛТЩФШ ЛБОБМ *)
if not assignpipe(fdr,fdw) then
begin
perror ('пЫЙВЛБ ЧЩЪПЧБ pipe');
halt (1);
end;
(* ъБРЙУШ Ч ЛБОБМ *)
fdwrite (fdw, msg1, MSGSIZE);
fdwrite (fdw, msg2, MSGSIZE);
fdwrite (fdw, msg3, MSGSIZE);
(* юФЕОЙЕ ЙЪ ЛБОБМБ *)
for j := 1 to 3 do
begin
fdread (fdr, inbuf, MSGSIZE);
writeln(inbuf);
end;
halt (0);
end.