Вычислить количество точек графика функции, лежащих внутри кольца с радиусами r1 и r2 и центром в точке (xc;yc)

Var x,y,r1,r2:integer;
 toch:byte;
begin
  writeln('Введите внутренний радиус-r1');
  readln(r1);
  writeln('Введите внешний радиус-r2');
  readln(r2);
  x:=-r2;
  while x<=r2 do
  begin
    y:=-r2;
    repeat
     If(sqrt(sqr(x)+sqr(y))>r1) and (sqrt(sqr(x)+sqr(y))<r2) then
     begin
        toch:=toch+1;
        writeln(x,' ',y);
     end;
     y:=y+1;
   until y>r2;
   x:=x+1;
  end;
  writeln('Кол-во точек=',toch)
end.

while x<=xn
                                                          begin
                                                          y=......
                                                          if (*) then k:=k+1
                                                          x:= x +hx

x:=-r2;
  while x<=r2 do
  begin
    y:=-r2;
    repeat
     If(sqrt(sqr(x)+sqr(y))>r1) and (sqrt(sqr(x)+sqr(y))<r2) then
     begin
        toch:=toch+1;
        writeln(x,' ',y);
     end;
     y:=y+1;
   until y>r2;

var xc,yc,r1,r2,x0,xn,y0,yn,x,y,dx,dy,k:integer;
begin
writeln('Введите координаты центра кольца');
readln(xc,yc);
write('Введите внутренний радиус r1=');
readln(r1);
write('Введите внешний радиус r2=');
readln(r2);
x0:=xc-r2;
y0:=yc-r2;
xn:=xc+r2;
yn:=yc+r2;
dx:=1;
dy:=1;
x:=x0;
while x<=xn do
 begin
  y:=y0;
  while y<=yn do
   begin
    if(sqrt(sqr(xc-x)+sqr(yc-y))>r1) and (sqrt(sqr(xc-x)+sqr(yc-y))<r2) then k:=k+1;
    y:=y+dy;
   end;
  x:=x+dx;
 end;
writeln('Кол-во точек=',k)
end.