编写个数据库存储过程，遇到好几处语法错误，也不知道怎么改，求佬指导一下

Question

CREATE PROCEDURE discrete_math_grade
AS
DECLARE dist CURSOR FOR
SELECT grade FROM SC WHERE cno =
(SELECT Cno FROM Course WHERE Cname='离散数学');
p_100 NUMBER := 0;
p_90 NUMBER := 0;
p_80 NUMBER := 0;
p_70 NUMBER := 0;
p_60 NUMBER := 0;
p_otherNUMBER := 0;
p_gradeNUMBER;
BEGIN
LOOP
OPEN dist;
FETCH dist INTO p_grade;
EXIT WHEN(dist%NOTFOUND);
IF(p_grade==100)THEN
p_100 :=p_100+1;
ELSIF(p_grade >=90)THEN

        p_90 :=90+1;
    ELSIF(p_grade >=80)THEN
        p_80 :=80+1;
    ELSIF(p_grade >=70)THEN
        p_70 :=70+1;
    ELSIF(p_grade >=60)THEN
        p_60 :=60+1;
    ELSE
        p_other ：=p_other+1;
    END IF;
    END LOOP;
CLOSE dist

END;