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

(* рТПЗТБННБ lookup -- ЧЩЧПДЙФ ХУФБОПЧЛЙ ПЗТБОЙЮЕОЙК ЖБКМПЧ *)

uses stdio;

type table=record
val:integer;
name:pchar;
end;

var
tb:^table;
const options:array [0..3] of table=(
(val:_PC_LINK_MAX; name:'нБЛУЙНБМШОПЕ ЮЙУМП УУЩМПЛ'),
(val:_PC_NAME_MAX; name:'нБЛУЙНБМШОБС ДМЙОБ ЙНЕОЙ ЖБКМБ'),
(val:_PC_PATH_MAX; name:'нБЛУЙНБМШОБС ДМЙОБ РХФЙ'),
(val:-1; name:nil)
);
begin
tb:=options;
while tb^.name<>nil do
begin
printf('%-32.31s%ld'#$a, [tb^.name, pathconf ('/tmp', tb^.val)]);
inc(tb);
end;
end.