Определить количество точек, принадлежащих кругу заданного радиуса с центром в начале координат

var a:array[1..50] of real;
    n,i,k:integer;
    r:real;
begin
randomize;
repeat
write('Введите количество чисел четное число от 2 до 50 n=');
readln(n);
until(n mod 2=0)and(n in [2..50]);
writeln('Введенные числа');
for i:=1 to n do
 begin
  a[i]:=-9+18*random;
  write(a[i]:5:1);
 end;
writeln;
repeat
write('Введите радиус круга r>0 r=');
readln(r);
until r>0;
k:=0;
for i:=1 to n do
if sqr(a[i]-a[n-i+1])<r*r then inc(k);
write('Количество точек попадающих в круг=',k);
end.

function inCircle(a,b,r : Real) : Boolean;
begin
  if a*a+b*b < r*r then
    Result := True
  else
    Result := False;
end;
 
var
  i, n, count, r : Word;
  a : array [1..50] of Real;
begin
  Randomize;
  Write('Количество чисел:'); ReadLn(n);
  for i := 1 to n do
    begin
      a[i] := Random * 18 - 9;
      Write(a[i]:5:1);
    end;
  WriteLn;
  Write('r = '); ReadLn(r);
  count := 0;
  for i := 1 to n div 2 do
    if inCircle(a[i], a[n-i+1], r) then
      inc(count, 2);
  if odd(n) and inCircle(a[n div 2+1], a[n div 2+1], r) then
    inc(count);
  WriteLn(count);
end.