PROCEDURE GetIdent (r: Reader; VAR id: IdentDesc);
VAR i, lastInd: LONGINT;
BEGIN
   lastInd := LEN (id.name) - 1;
   i := lastInd;
   WHILE (i >= 0) & IdentChar (r.ch) DO
      id.name [i] := r.ch;
      DEC (i);
      IF i >= 0 THEN
         r.ReadPrev
      END
   END;
   IF (i >= 0) & (i < lastInd) & IdentFirstChar (id.name [i + 1]) THEN
      MoveBlock (id.name, i + 1, lastInd - i, 0);
      id.name [lastInd - i] := 0X
   ELSE
      id.name [0] := 0X
   END
END GetIdent;

PROCEDURE ИмяСилуэт(IN ИмяВетки:ARRAY OF CHAR;.......);
BEGIN
  LOOP    (*Цикл Силуэта*) 
    IF ИмяВетки$="Ветка_1" THEN    (* Для константы используются текст или его фрагмент иконки "Ветка"*)
       .................
       ИмяВетки:="Ветка_2"        (*Переход на другую ветку*)
    ELSEIF ИмяВетки$="Ветка_2" THEN  (*Ветка с 2 адресами*)
       IF Условие THEN                   
         .................
         ИмяВетки:="Ветка_1"      (*Веточный цикл, т.е. переход на ранее описанную ветку*)
       ELSE
         .................
         ИмяВетки:="Ветка_3"
       END
    ELSEIF ИмяВетки$="Ветка_3" THEN (* Последняя ветка с иконкой "Конец"*)
       .................
       EXIT    (*Иконка "Конец"*)
    END 
  END
END ИмяСилуэт
 
ИмяСилуэт("Ветка_1", .........);  (*Вызов процедуры со входом в 1-ю ветку*)

   (* было: *)
   WHILE (i >= 0) & IdentChar (r.ch) DO
      id.name [i] := r.ch;
      DEC (i);
      IF i >= 0 THEN
         r.ReadPrev
      END
   END;
   (* стало: *)
   IF IdentChar (r.ch) THEN
      REPEAT
         id.name [i] := r.ch;
         DEC (i);
         IF i >= 0 THEN
            r.ReadPrev
         END
      UNTIL ~(i >= 0) OR ~IdentChar (r.ch)
   END

   IF IdentChar (r.ch) THEN
      done := FALSE;
      REPEAT
         id.name [i] := r.ch;
         DEC (i);
         IF i >= 0 THEN
            r.ReadPrev;
            done := ~IdentChar (r.ch)
         ELSE
            done := TRUE
         END
      UNTIL done
   END

   IF IdentChar (r.ch) THEN
      LOOP
         id.name [i] := r.ch;
         DEC (i);
         IF (i >= 0)&(IdentChar (r.ch)) THEN
            r.ReadPrev
         END
         ELSE EXIT END
       END
   END