Помогите пожалуйста решить задачу по Паскалю!

program Project1;
{$APPTYPE CONSOLE}

{На плоскости задано кольцо с центром в точке (х0, у0) внутренним радиусом
Р1 и внешним радиусом Р2. Составить фуннкцию, которая для заданного массива
точек ХУ вычисляет количество точек, принадлежащих кольцу. Точки,
расположенные на границе кольца считать принадлежащими кольцу.}

uses
  SysUtils;

var x0, y0, R1, R2: real;

function CalcCount(const x0, y0, R1, R2: real): integer;
  var a: array[1..15, 1..2] of real;
      n, i, j, k: integer;
      R, x, y: real;
  begin
    write('Input the number of points: ');
    readln(n);
    writeln('Input the coordinates of points: ');
    for i:= 1 to n do
      begin
        writeln(i,' point:');
        j:= 1;
        write('X= ');
        readln(a[i, j]);
        write('Y= ');
        readln(a[i, j+1]);
        writeln('----------------------------------');
      end;
    k:=0;
    for i:= 1 to n do
      begin
        j:= 1;
        x:= a[i, j];
        y:= a[i, j+1];
        R:= (sqrt(sqr(x0- x) + sqr(y0- y)));
        if (R1<= R) and (R<= R2) then k:= k+1;
      end;
    CalcCount:= k;
  end;

begin
  write('Input x0: ');
  readln(x0);
  write('Input y0: ');
  readln(y0);
  write('Input R1: ');
  readln(R1);
  write('Input R2: ');
  readln(R2);
  writeln('----------------------------------');
  writeln('The number of "good" points: ', CalcCount(x0, y0, R1, R2));
  readln;
end.