Обработка текстов: Элементы Лексического анализа

uses crt;
 
const n=50;
var
a,b:text;
ch:char;
slovo,pazdel,tupe,kolvo,per,vxod,tslovo, znachenie:string;
i,j,y,q,w,z:integer;
k:array [1..n,1..4] of string;tirami:array [1..n] of integer;
c,tum1,tum,zapyat:byte;
begin
  clrscr;
  vxod:=paramstr(1);
  assign(a,vxod);
  assign(b,paramstr(2));
  reset(a);
  rewrite(b);
  tum:=0;
  i:=2;
  y:=1;
  tum1:=0;
  zapyat:=0;
  k[1,1]:='Razdel';
  k[1,2]:='Name';
  K[1,3]:='Type';
  k[1,4]:='Count';
  while not Eof(a) do
  begin
    if tum1=0 then
    begin
      read(a,ch);
      if ch='[' then
        zapyat:=1;
      if ch=']' then
       zapyat:=0;
       if (ch=' ') and (tum=1) then
      else
        if(((ch>='a') and (ch<='z'))or((ch>='0')and(ch<='9')and(zapyat=0))or((ch>=',')and(ch<='9')and(zapyat=1)) or ((ch>='A') and (ch<='Z'))or (ch='[') or (ch=']')) then
        begin
        slovo:=slovo+ch;
        end
        else
          begin
            if {(slovo='var') or }(slovo='const'){ or (slovo='type') or (slovo='procedure') or (slovo='function')} then
              begin
                tum:=1;
                k[i,1]:=slovo;
              end;
            if slovo='begin' then
              begin
                tum1:=1;
                tum:=0;
              end;
            if ((ch='=')or(ch=':')or(ch=',') or (ch='(')) and (tum=1)then
              begin
                k[i,2]:=slovo;
                if ch=',' then i:=i+1;
              end;
            if ((ch=';')and(tum=1)) then
              begin
               if (slovo<>'end') then begin
                k[i,3]:=slovo;
                for z:=i downto 2 do
                if k[z,3]='' then k[z,3]:=k[i,3];
                i:=i+1;
                end;
              end;
            slovo:='';
          end;
      end;
    if tum1=1 then
      begin
        read(a,ch);
        j:=ord(ch);
        if (((ch>='a') and (ch<='z')) or ((ch>='A') and (ch<='Z'))) then per:=per+ch
        else
          begin
            per:=upcase(per);
            for q:=1 to i do
              begin
                tupe:=upcase(k[q,2]);
                if per=tupe then tirami[q]:=tirami[q]+1;
                end;
            per:='';
          end;
      end;
  end;
 
 
  writeln(b,k[1,1]:25,k[1,2]:25,k[1,3]:25,k[1,4]:15);
 
  for y:=2 to i do begin
    for j:=1 to 3 do
    write(b,k[y,j]:25);write(b,tirami[y]:15);
    writeln(b);
  end;
 
  close(a);
  close(b);
end.