Операции с разными числовыми типами. Если на вход подаются большие числа (типа 1000), то выводятся нули

program areasq;
    x,y,min,xmin,ymin,pi:real;
    OA,AK,AM,minOA,minAK,minAM:real;
    n,p,q:integer;
    //cur:per;
begin
readln(n,p,q);  //ввод чисел
x:=0;
min:=1000;
while(x<=1) do
 begin
  y:=0;
   while((y<=sqrt(3.0000)*x) and (y<=-sqrt(3.0000)*x+sqrt(3.0000))) do 
    begin
     OA:=sqrt(x*x+y*y); //операции с числами
     AK:=sqrt(sqr(sqrt(3)/2-y)+sqr(abs(0.5-x))); //операции с числами
     AM:=sqrt(sqr(1-x)+y*y); //операции с числами
     if(min>AK*q+AM*p+OA*n) then //операции с числами - возможно здесь происходит ошибка, но я ее не вижу
      begin
       min:=AK*q+AM*p+OA*n;
       xmin:=x;
       ymin:=y;
       minAK:=AK;
       minAM:=AM;
       minOA:=OA;
      end;
      if (min=AK*q+AM*p+OA*n) then
       begin
        if (minAK+minOA+minAM>AK+OA+AM) then
           begin
              min:=AK*q+AM*p+OA*n;
              xmin:=x;
              ymin:=y;
              minAK:=AK;
              minAM:=AM;
              minOA:=OA;
           end;
       end;
     y:=y+0.00028;
    end;
     x:=x+0.00028;
   end;
    writeln(xmin:5:10,' ',ymin:5:10);//:3:10
end.