анализ описания переменных

[ALıya]

Подскажите, в чем проблема. Программа читает файл, и должна полностью проанализировав его, выдать сообщение о корректности или о ошибке. Процедуры анализа строк работают корректно. Но при изменении исходного файла программа иногда начинает зависать. Что то упущено, но не могу разобраться. Может кто посмотрит..Буду благодарна.

В исходном файле к примеру:
var a, b, c: real;
d: array [1..6,6..9] of integer;
s1: string;
s2: string[10];

Сама программа во вложении.

[evg_m]

процедуры проверок данных в файле}
procedure masanalyz;
var
   kol: integer;
   p1, p2, find: boolean;
begin
......
     while st[i] <>'' do

в одной из последуюших многочисленных проверок пропущен оператор Inc(i) получаем бесконечный цикл (зависание).
должно быть

if ... then begin
  Inc(i);
end
else begin
  Inc(i);
end;

ОДин из этих Inc(i) у вас отсутствует. Они могут быть во вложенных блоках

if ... then begin
  if .... then begin
      Inc(i);
  end
  else begin
      Inc(i);
   end;

но в таком случае прохождение любой ветки должно приводить к Inc(i).

[ALıya]

Спасибо большое,буду разбираться..

[Son Of Pain]

У тебя главная беда в процедуре strokanalyz. Посмотри внимательно, что происходит в главном цикле, если в нее попадает строчка
[quote]s2:string[10];[/quote
например.

Первый вызов extract забирает лексему s2, потом вручную обрабатывается двоеточие, потом опять вызов extract забирает слово string, а вот квадратную скобку уже обрабатывать некому. И цикл будет крутиться до бесконечности - вызов extract(0) будет возвращать пустую строку, а до вызова extract(1) выполнение не доберется, потому что не будет слова array. И так зацикливаться оно будет при попадании на любую непредусмотренную лексему - я могу придумать много способов повесить эту функцию

Вообще я бы советовал переписать весь код более логически структурировано, отделить лексический разбор от семантическогО etc, иначе ты замучаешься это отлаживать.

Да, и не стОит так сурово пользоваться глобальными переменными )