tokens : array[1..maxtokens] of token_t; tokens_idx : array[1..maxlines] of longint; numlines, numtokens : longint; textf : text; procedure Show_Header; begin Writeln; Writeln(titelstr); Writeln; end; procedure Show_Info; var lsize,tsize,isize:longint; begin lsize := round(sizeof(lines) / 1000);