Подсчитать число точек ,находящихся внутри круга радиусом R с центром в начале координат ,координаты заданы массивами X(50),Y(50)- QBasic(Бейсик)

Формула подпрограммы:
L= SQR((X2-X1)^2+(Y2-Y1)^2))
Примечание:Расстояние от точки до начала координат вычислить в подпрограмме

DIM x(50), y(50)
CLS
INPUT "vvedite radius "; r
RANDOMIZE TIMER
INPUT "vvedite kol-vo tochek"; t
FOR i = 1 TO t
    x(i) = INT(RND * 50)
    y(i) = INT(RND * 50)
    PRINT "a("; i; ")="; x(i); ";"; y(i); " ";
NEXT
FOR i = 1 TO t
    GOSUB radius
    IF rad <= r THEN kol = kol + 1
NEXT
PRINT
PRINT "v kruge "; kol; " tochek"
END
radius:
rad = SQR(x(i) ^ 2 + y(i) ^ 2)
RETURN