复制isdigit:=FALSE;   m := length(password);   FOR i IN 1..10 LOOP    FOR j IN 1..m LOOP    IF substr(password,密码j,1) = substr(digitarray,i,1) THEN   isdigit:=TRUE;   GOTO findchar;   END IF;   END LOOP;   END LOOP;   IF isdigit = FALSE THEN   raise_application_error(-20003, Password should contain at least one digit, one character and one punctuation);   END IF;  1.2.3.4.5.6.7.8.9.10.11.12.13.