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

(* рТПЗТБННБ io ЛПРЙТХЕФ УФБОДБТФОЩК ЧЧПД *)
(* Ч УФБОДБТФОЩК ЧЩЧПД *)
uses linux;

const
SIZE=512;
var
nread:longint;
buf:array [0..SIZE-1] of byte;
begin
nread := fdread (0, buf, SIZE);
while nread > 0 do
begin
fdwrite (1, buf, nread);
nread := fdread (0, buf, SIZE);
end;
halt(0);
end.