Как обойти ошибку 207?

{$N+}
uses crt;
{--------------------------------------------}
function step(a,n1:real):real;
  begin
    step:=exp(ln(a)*n1);
  end;
{--------------------------------------------}
 
var
  ky,nz,al1,cc,xir,c3,h1:extended;
  b:boolean;
  i,j,g,m:integer;
  xr,n:integer;
 
  begin
    clrscr;
    n:=100;
    xir:=-5;
    xr:=0;
 
    b:=false;
    for i:=50 to 1000 do
      begin
        for j:=1 to 30 do
          begin
            cc:=i/n;
            al1:=j/n;
            h1:=cc*step(n,al1);
            m:=0;
            xir:=-5;
            for g:=0 to n do
              begin
                ky:=exp(-sqr((xr-xir)/(h1*h1)))/(sqrt(2*Pi)*h1);
                nz:=exp(-sqr(xir)/2)/sqrt(2*Pi);
                xir:=xir+10/n;
                c3:=abs(ky-nz);
                if c3>0.051 then break;
                if g=n then
                  begin
                    b:=true;
                    writeln(cc*step(n,al1):2:6);
                    writeln(cc:2:2);
                    writeln(al1:2:2);
                    writeln(g);
                    writeln;
                    break;
                  end;
                inc(m);
               { if b=true then break;}
              end;
          end;
          {if b=true then break;        }
      end;
readln;
   end.