## Код:
```
PROCEDURE Name* ( OUT name: ARRAY OF CHAR );
   BEGIN
      IF  done  THEN
         scanner.Scan;
         TextMappers.ScanQualIdent( scanner, name, Done )     <--- должна быть done вместо Done 
      END;
      Done := done
   END Name;
```
