Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x,y,maxx,maxy:real;
i,j,t:integer;
s:string;

begin
  try
x:=0;
maxx:=0;
   repeat
         y:=0;
             if x<=1 then
             repeat
     if (x-1)*(x-1)+y*y<=1 then s:= ' DA ' else s:=' NET ';
     write(' x=',x:3:1,' y=',y:3:1,s);
             if s=' yes ' then
                    if x>maxx then
                        begin
                        maxx:=x;
                        maxy:=y;
                        end;
                inc(t);
             if t mod 2=0 then writeln;
             y:=y+0.3;
                until y>1.5
              else
                      repeat
      if (x-1)*(x-1)+y*y<=1 then s:=' DA 'else s:=' NET ';
      write(' x=',x:3:1,' y=',y:3:1,s);
                      if s=' yes ' then
                          if x>maxx then
                              begin
                              maxx:=x;
                              maxy:=y;
                              end;
                  inc(t);
             if t mod 2=0 then writeln;
                       y:=y+0.3;
                    until y>2.1 ;
   x:=x+0.6;
   until x>2;
write('tochka s max x vnutri kruga x=',maxx:3:1,' y=',maxy:3:1);
except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  sleep(60000); // показывать форму в течении 1 минуты
end.