PROCEDURE ReadConverter ( VAR rd: Stores.Reader;  OUT conv: Converters.Converter );
      VAR  imp, exp: Dialog.String; ... c: Converters.Converter;
   BEGIN
      ...
      rd.ReadSet( opts );
--->      Converters.Register( imp, exp, storeType, fileType, opts );
      c := Converters.list;
      WHILE ( c # NIL ) &
         ~( ( c.imp = imp ) & ( c.exp = exp ) &
            ( c.storeType = storeType ) & ( c.fileType = fileType ) & ( c.opts = opts ) )
      DO
         c := c.next
      END;
      conv := c
   END ReadConverter;

   PROCEDURE ReadConverter ( VAR rd: Stores.Reader;  OUT conv: Converters.Converter );
      VAR  imp, exp: Dialog.String; ... c: Converters.Converter;
   BEGIN
      ...
      rd.ReadSet( opts );
      c := Converters.list;
      WHILE ( c # NIL ) &
         ~( ( c.imp = imp ) & ( c.exp = exp ) &
            ( c.storeType = storeType ) & ( c.fileType = fileType ) & ( c.opts = opts ) )
      DO
         c := c.next
      END;
      IF c = NIL THEN
         Converters.Register( imp, exp, storeType, fileType, opts );
         c := Converters.list;
         WHILE ( c # NIL ) &
            ~( ( c.imp = imp ) & ( c.exp = exp ) &
               ( c.storeType = storeType ) & ( c.fileType = fileType ) & ( c.opts = opts ) )
         DO
            c := c.next
         END
      END;
      conv := c
   END ReadConverter;

   PROCEDURE Close*;
      ...
   BEGIN
      IF Unsaved() # NIL THEN
         Dialog.ShowMsg('#i21sys:CannotExit');   <---- должно быть CannotClose
         ...
      ELSE
         ...
      END
   END Close;