, hvordan viser indholdet af en arj fil bidragyder: swag støttegruppe, program readarj;, anvendelse,   crt,,   søgningen, konstant,    arjid =`ê, type,    array10 = array - [1 - 10] af byte.,    array12 = array - [1 - 12] af char,    afilerec = record,                 filedate: longint;,                 compressedsize: longint;,                 originalsize: longint;,                 dudspace: array10;,                 filnavn: array12,              ;,    array60k = mængde [1]... 61440 byte., var,    buffer: array60k;,    arjfilerec: afilerec;,    arjfilesize    arjrecstart,,,,   ArjRecStop,,   Index,,   Index1 : LongInt;,   ArjFile : File;, begin,   ClrScr;,   fillChar(Buffer, sizeof(Buffer), 0);,   fillChar(ArjFileRec, sizeof(ArjFileRec), 0);,   ArjFileSize := 0;,   ArjRecStart := 1; , ,   ArjRecStop := 0;,   assign(ArjFile, 'TEST.ARJ');,   {$I-},   reset(ArjFile, 1);,   {$I+},   if (ioresult <> 0) then,     begin,       Writeln(' ERRor OPENinG TEST.ARJ');,       halt(255),     end;,   ArjFileSize := Filesize(ArjFile);,   Index := ArjFileSize - 50;,   blockread(ArjFile, Buffer, Index);,   close(ArjFile);,   Index1 := 50;,   ArjFileRec.Filename := ' ';,   While ((Index1 + 33) < arjfilesize),      begynder,        arjrecstart: = strpos (buffer [index1], indeks, arjid) + 11,        arjrecstop: = strpos (buffer [index1 + arjrecstart + 22], 13,�),        træk (buffer [arjrecstart + index1], arjfilerec (arjrecstop + 21),        med arjfilerec,          begynder,            writeln (' ', filnavn, og' komprimeret størrelse = ', compressedsize: 6,                      ' oprindelige størrelse = ', originalsize: 6.),            filnavn: = ' ',            inc (index1, compressedsize + arjrecstop + arjrecstart),            dec (indeks, compressedsize + arjrecstop + arjrecstart),         ,     ,.,