Определить, принадлежит ли точка N (x,y) кольцу

program Kolcho;
var rm,Rb,x,y,v: real; otvet:char;
begin
 repeat
  writeln('************************');
  writeln('введите внутрений радиус кольца'); // вводим малый радиус
  readln(rm);
  writeln('************************');
  writeln('введите внешний радиус кольца'); // вводим большой радиус 
  readln(Rb);
  writeln('************************');
  if Rb<rm then // проверяем, чтоб малый радиус был меньше большого
   begin 
    writeln('Ошибка! внутрений радиус кольца должен быть меньше внешний радиус кольца. повторить ввод?(Y/N)');
    readln(otvet);
    if (otvet = 'N') or (otvet = 'n') then
     exit
   end
  else
   otvet:='N'; // если все верно, то закрываем цикл
 until (otvet = 'N') or (otvet = 'n'); 
 repeat 
  writeln('введите значение х'); // вводим х
  readln(x);
  writeln('введите значение y'); // вводим у
  readln(y);
  writeln('************************');
  v:=x*x+y*y;
  if v > rm*rm then
   if v< Rb*Rb then
    writeln('данные точка лежит в кольце')
   else 
    writeln('данная точка лежит внутри кольца')
  else
   writeln('данная точка лежит вне кольца');
  writeln('************************');
  writeln('проведить другие точки?(Y/N)'); //проведить другие точки?(Y/N)
  readln(otvet);
  writeln('************************');
 until (otvet = 'y') or (otvet = 'Y')
end.