Пособите,не понимаю(Delphi)

[xsaroo]

Составить программу, определяющую, попадет ли точка с координатами (х0,у0) в круг радиусом r. Уравнение окружности
x^2+y^2=r^2
Присвоить признаку N значение 1, если точка попадает внутрь круга, 2 - вне круга и 0 - на границу круга.

Вот сделал только на попадание и не попадание , а с условием и близко нет не отупляю как сделать можно

procedure TForm1.Button1Click(Sender: TObject);
var x,y,r,n:Integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
r:=StrToInt(Edit3.Text);
if Sqr(r)=Sqr(x)+Sqr(y)
then label5.Caption:='Попадает'
else Label5.Caption:='Не попадает'
end;

[Serge_Bliznykov]

if Sqr(r)=(Sqr(x)+Sqr(y)) then N := 0
else
   if (Sqr(x)+Sqr(y)) < Sqr(r) 
        then N := 1
        else N := 2;

[xsaroo]

благодарю , простите дурак сразу не понял)