Вывести список лексем каждого класса и списка идентификаторов с указанием частоты

procedure BinSearch(var T: tTable; K: tKey; var res: integer);
var
   L, R, C: integer;
begin
   L := 1;
   R := T.n;
   while L < R do begin
      C := (L + R) div 2;
      if T.a[C].key < K then
         L := C + 1
      else
         R := C;
      end;
   if T.a[L].key = K then
      res := L
   else
      res := 0;
end;

unit MODULAPars;
 
interface
 
procedure Analyzer;
 
{======================================================}
 
implementation
 
uses
   MODULAScan;
const
   nmax = 400000;
   percent = 100;
type
   tRec = record
      lx : tLex;
      count : integer;
   end;
   tArr = array [1..nmax] of tRec;
var
   a : tArr;
   n: integer;
   f1 : text;
   w: tLex;
procedure Sort(var a: tArr; n : integer);
var
   i, j, jmin: integer;
   buf: tRec;
begin
   for i := 1 to n-1 do begin
      jmin := i;
      for j := i+1 to n do begin
         if a[j].lx < a[jmin].lx then
            jmin := j;
      end;
      buf := a[i];
      a[i] := a[jmin];
      a[jmin] := buf;
   end;
end;   
 
procedure Search(var a : tArr; w : tLex);
var 
   L, R, C : integer;
begin
   L := 1;
   R := n;
   while L < R do begin
      C := (L+R) div 2;
      if {(a[c].lx <> '') and }(a[c].lx < w) then
         L := C + 1
      else
         R := C;
   end;
   if a[R].lx = w then
      a[R].count := a[R].count + 1;
end;
 
procedure Analyzer;
var 
   i: integer;
begin
   n := 0 ;
   while Lex <> lexEOT do begin
      n:= n+1;
      a[n].lx := Lex;
      NextLex;
   end;
 
   Sort(a, n);
  
   //for i:=1 to n do
      //Writeln (a[i].lx);
   for i:=1 to n do begin
     w:= a[i].lx;
     Search(a, w);
   end;   
   Assign(f1, 'result.txt');
   Rewrite(f1);
   Writeln(f1, 'Сканер языка Модула-2 ' );
   Write(f1, 'Чиcлo лексем ', n );
   for i:=1 to n do
     Writeln(a[i].lx, ' ', a[i].count, ' раз(а), ', a[i].count/n*percent, '%');
   close(f1);
end;
 
end.