ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  source: string;
  lexem: string;
  c : char;
  i:Integer;
  stack: array[0..100] of string;
  stackPointer: integer;

  procedure PushLexem(lexem: string);
  begin
    if lexem = 'end' then
      begin
      //найден конец блока, выталкиваем из стека
      if stackPointer = 0 then
        Writeln('Error: Found "end", but not found "begin", "case" or "record"')
      else
        dec(stackPointer)
      end
    else
      if (lexem='begin') or (lexem='case') or (lexem='record') then
        begin
          if(stackPointer>=Length(stack)) then
             Writeln('Error: Stack overflow');//переполнение стека - слишком много вложенных блоков в исходном тексте
          //кладем лексему в стек
          stack[stackPointer] := lexem;
          inc(stackPointer);
        end
  end;

begin
  //ввод проверяемого кода
  Writeln('Enter Pascal source: ');
  Readln(source);
  //переводим в нижний регистр, добавляем пробел в конце
  source := LowerCase(source)+' ';
  //перебираем символы, ищем лексемы
  lexem := '';
  for i:=1 to Length(source) do
  begin
    c := source[i];
    if c in ['a'..'z','0'..'9','_'] then
      //читаем лексему
      lexem := lexem + c
    else
    if lexem<>'' then
      begin
      //прочитана лексема, кладем в стек
      PushLexem(lexem);
      lexem := '';
      end
  end;
  //проверяем сотсояние стека, он должен быть пуст
  if stackPointer > 0 then
     Writeln('Error: Found "'+stack[stackPointer-1]+'", but not found "end"');

  Writeln('Analysis completed');
  Readln;

end.