Найти количество и номера точек, попадающих в круг радиуса R>0 с центром в начале координат - Free Pascal

Формулировка задачи:

Кто может помогите напишите прогу в free pascal Задана последовательность точек плоскости P1(x[1], y[1]); P2(x[2], y[2]); …..; Pn(x[n], y[n]). Определить: количество и номера точек, попадающих в круг радиуса R>0 с центром в начале координат;

Решение задачи: «Найти количество и номера точек, попадающих в круг радиуса R>0 с центром в начале координат»

Листинг программы

count := 0;
for i := 1 to n do
  if sqr(x[i]) + sqr(y[i]) < sqr(r) then
  begin
    writeln('точка №', i); inc(count);
  end;
 
writeln('всего найдено точек: ', count);

Объяснение кода листинга программы

Объявляется переменная count типа целое и инициализируется значением 0.
Итерируясь по массиву x от элемента 1 до элемента n, проверяется условие: сумма квадратов координат текущей точки (x[i], y[i]) меньше квадрата радиуса (r).
Если условие выполняется, то выводится сообщение с номером текущей точки и значение переменной count увеличивается на единицу.
После завершения цикла, выводится общее количество найденных точек.