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

uses stdio;

const
inname:pchar = 'indata';
outname:pchar = 'outdata';

function fatal(s:pchar):integer;
begin
perror (s);
halt (1);
end;

var
inf,outf:pfile;
begin
inf := fopen (inname, 'r');
if inf = nil then
fatal ('оЕЧПЪНПЦОП ПФЛТЩФШ ЧИПДОПК ЖБКМ');
outf := fopen (outname, 'w');
if outf = nil then
fatal ('оЕЧПЪНПЦОП ПФЛТЩФШ ЧЩИПДОПК ЖБКМ');
(* чЩРПМОСАФУС ЛБЛЙЕ-МЙВП ДЕКУФЧЙС ... *)
fclose (inf);
fclose (outf);
halt (0);
end.