Нарисовать круг, по найденным значениям

var
  Form1: TForm1;
  x:array[1..2] of real;
  a,b:Real;
const n=2;
implementation
 
{$R *.dfm}
 
 function F (x1,x2,a,b:real) : real;
begin
f:=sqr(x1-a)+sqr(x2-b);
end;
 
function ODR(x1,x2: real):boolean;
begin
 ODR:=False;
if (x[1]-3*x[2]<=6) and (x[1]+x[2]<=10) then ODR:=True;
 
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var Y0,Ym,h,eps,h0:Real;
i:integer;
label 1,2,3;
begin
 x[1]:=StrToFloat(edt1.Text);
 x[2]:=StrToFloat(edt2.Text);
 eps:=StrToFloat(edt3.Text);
 h0:=StrToFloat(edt4.Text);
 a:=StrToFloat(edt5.Text);
 b:=StrToFloat(edt6.Text);
 Y0:=1e6;
 i:=0;
3:
 
I:=i+1; h:=h0;
if i=n+1 then i:=1;
2:
 
ym:=f(x[1],x[2],a,b);
x[i]:=x[i]+h;
 
if ODR(x[1],x[2])=false then begin x[i]:=x[i]-h;mmo1.Lines.Add('Граница Ym= '+floattostr(ym)+' x1= '+floattostr(x[1])+' x2= '+floattostr(x[2])); end
                 else
 
                 if abs(h)>eps then
                               begin
                               if Ym<f(x[1],x[2],a,b) then h:=-h/2;
                               goto 2;
                               end;
 
 
 mmo1.Lines.Add('Ym= '+floattostr(ym)+' x1= '+floattostr(x[1])+' x2= '+floattostr(x[2]));
 
 
 
if abs(Y0-Ym)<eps then
                  begin
                  mmo1.Lines.Add('Экстремум Ym='+floattostr(ym)+' x1='+floattostr(x[1])+' x2='+floattostr(x[2]));
                  exit;
                  end
 
                  else
                  begin
                  Y0:=Ym;
                  goto 3;
                  end;
end;
 
 
 
// mmo1.Lines.Add('Ym= '+floattostr(ym)+' x1= '+floattostr(x[1])+' x2= '+floattostr(x[2]))
procedure TForm1.btn2Click(Sender: TObject);
begin
Application.Terminate;
end;
 
end.