Используя стек, проверить правильность вложений циклов

[olegass]

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

В файле находится текст программы на basic. Используя стек, проверить правильность вложений циклов в программе.
# FOR ID=
...............
...............
# NEXT ID ,
Думаю использовать старый форматер, но с изменением на нужные циклы.

PROCEDURE Form;
  BEGIN
    A1 := A2;
    A2 := A3;
    A3 := A4;
    A4 := A5;
  END;
BEGIN
  A1 := ' ';
  A2 := ' ';
  A3 := ' ';
  A4 := ' ';
  A5 := ' ';
  WHILE NOT EOF
  DO
    BEGIN
      FORM;
      READ(A5);
      IF A5 <> ' '
      THEN
        BEGIN
          IF A5 = 'E'
          THEN
            BEGIN
              FORM;
              READ(A5);
              IF A5 = 'N'
              THEN
                BEGIN
                  FORM;
                  READ(A5);
                  IF  A5 = 'D'
                  THEN
                    BEGIN
                      WRITE;
                      WRITE(A3, A4, A5)
                    END
                  ELSE
                    WRITE(A3, A4, A5);
                END
              ELSE
                WRITE(A4, A5);
            END
          ELSE
            WRITE(A5);
                IF A1 = 'B'
                THEN
                  IF A2 = 'E'
                  THEN
                    IF A3 = 'G'
                    THEN
                      IF A4 = 'I'
                      THEN
                        IF A5 = 'N'
                        THEN
                          BEGIN
                            WRITE;
                            WRITE('  ')
                          END;
          IF A5 = ';'
          THEN
            BEGIN
              WRITE;
              WRITELN('  ')
            END;
          IF (A5 = ',') or (A5 = '=')
          THEN
            WRITE(' ');
          IF A5 = '{'
          THEN
            BEGIN
              C := A5;
              WHILE C <> '}'
              DO
                BEGIN
                  READ(C);
                  WRITE(C)
                END;
              WRITELN('  ');
              A5 := C;
            END;
          IF A5 = '}'
          THEN
            BEGIN
              WRITE;
              WRITELN('  ')
            END
        END
    END
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[olegass]

Неужели никто не разбирается с массивами и стеками.
На языках DELPHI или Pascal?