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

(* рТПГЕДХТБ genkey -- ЗЕОЕТБГЙС ЛМАЮБ ВБЪЩ ДБООЩИ *)
uses stdio;

(* дМЙОБ ЛМАЮБ ЧУЕЗДБ ВХДЕФ ТБЧОБ 20 УЙНЧПМБН *)

function genkey (buf:pchar; const suppcode:pchar; orderno:longint):pchar;
begin
(* рТПЧЕТЛБ ТБЪНЕТБ ЛМАЮБ *)
if strlen (suppcode) <> 10 then
begin
genkey:=nil;
exit;
end;

sprintf (buf, '%s_%.9d', [suppcode, orderno]);
genkey:=buf;
end;

var
buf:array [0..99] of char;
begin
if genkey (buf, 'supplement', 12)<>nil then
printf ('Key: %s'#$a, [pchar(buf)]);
end.