Лексический анализатор

uses crt;
const
  ks: array [1..39] of string = ('program', 'uses', 'const', 'var', 'label', 'type', 'begin', 'end',
                                     'and', 'or', 'not', 'div', 'mod', 'if', 'then', 'else', 'case', 'of',
                                     'byte', 'integer', 'real', 'char', 'string', 'array', 'record', 'file', 'set',
                                     'for', 'to', 'do', 'downto', 'goto', 'in', 'nil', 'repeat', 'until', 'while',     //ключевые слова
                                     'function', 'procedure');
var
  flag:boolean;
  f: text;
  r, slovo,s : string;
  a,j1,Q,P,N,M,err,i,j,k: integer;
 
  constant:array[1..100] of integer;//массив констант
  ident:array[1..100] of string;//массив идентификаторов
  keywords:array[1..100] of string;//массив ключевых слов
  separators:array[1..100] of string;//массив разделителей
  label point;
 
begin
  r := ' ,:;-+=().<>'; // строка разделителей слов 
  assign(f, '1.txt');
  reset(f);
  Q:=1; M:=1; N:=1; P:=1;
  while not (eof(f)) do
  begin
    readln(f, s);
    s:=s+' ';
    slovo := '';
    i:=1;
    while(i<=length(s)) do
    begin
      if (pos(s[i], r) = 0) then // i-й символ не разделитель - продолжаем собирать слово
        slovo := slovo + s[i]
      else // встретили разделитель - предыдущее слово закончилось
      begin
 //заполняем массив SEPARATORS; 
       if (pos(s[i], r) <> 0) and (s[i]<>' ') then //если текущий символ разделитель и не пробел ( пробел игнорируем)
       if (s[i]=':') and (s[i+1]='=') then 
            begin
                 i:=i+2;
                 flag:=true;
                 for j1:=1 to Q do
                 if ':='=separators[j1] then flag:=false;
                 if flag=true then begin
                                    inc(Q);
                                    separators[Q]:=':=';
                                  end;
            end 
       else 
        if (s[i]='<') and (s[i+1]='>') then 
            begin
                 i:=i+2;
                 flag:=true;
                 for j1:=1 to Q do
                 if ':='=separators[j1] then flag:=false;
                 if flag=true then begin
                                    inc(Q);
                                    separators[Q]:='<>';
                                  end;
            end 
       else
            begin
                 flag:=true;
                 for j1:=1 to Q do
                 if s[i]=separators[j1] then flag:=false;
                 if flag=true then begin
                                    inc(Q);
                                    separators[Q]:=s[i];
                                  end;
            end;     
 //заполняем массив KEYWORDS;     
        for j:=1 to 39 do //проверяем,является ли слово ключевым
           if slovo=ks[j] then begin
                               flag:=true;
                                for j1:=1 to M do
                                 if slovo=keywords[j1] then flag:=false;
                                 if flag=true then begin
                                                    inc(M);
                                                    keywords[M]:=slovo;
                                                   end;
                                goto point
                               end ;
//заполняем массив CONSTANT;        
        Val(slovo, k, err);//проверяем,является ли слово константой
        if err=0 then
             begin
                flag:=true;
                 for j1:=1 to N do
                 if k=constant[j1] then flag:=false;
                 if flag=true then begin
                                    inc(N);
                                    constant[N]:=k;
                                  end;
                goto point
              end
 //заполняем массив IDENT;             
          else //если преобразование из строки в число неуспешно то...
             begin
                 flag:=true;
                 for j1:=1 to P do
                 if slovo=ident[j1] then flag:=false;
                 if flag=true then begin
                                    inc(P);
                                    ident[P]:=slovo;
                                  end;
                goto point
              end;  
  point: 
        slovo := '';
      end;
      inc(i);
    end;
  end;
 //вывод таблиц дескриптора
writeln('Ключевые слова');
  for i:=1 to M do
  writeln(keywords[i]);writeln('-----');
writeln('Константы');
  for i:=1 to N do
  writeln(constant[i]);writeln('-----');
writeln('Идентификаторы');
  for i:=1 to P do
  writeln(ident[i]);writeln('-----');
writeln('Разделители');
  for i:=1 to Q do
  writeln(separators[i]);writeln('-----');
  
end.