Runtime error

[oban11]

подскажите выбивает ошибку invalid floating point посмотрев ошибку показывает : Runtime error 207 at 0380:006 при значениях x=-2 y=0 z[1]=2
при построчной проверке выдает ошибку на строке : if abs(zn)>t then

program lab7part2;
uses crt;
const t=1e-10;
var z:array[1..15] of real;
    x,xn,xk,y,yn,yk,hx,hy,ch,zn,cosec,f:extended;
    ki,i:byte;
    d,kr,ks:byte;
BEGIN
  clrscr;
    ks:=0;
    write('Vvedite xn=');readln(xn);
    write('Vvedite xk=');readln(xk);
    write('Vvedite Hx=');readln(Hx);
    write('Vvedite yn=');readln(yn);
       write('Vvedite yk=');
        readln(yk);
         write('Vvedite Hy=');
         readln(Hy);
       write('Vvedite kol-vo elementov massiva Z ki=');
        readln(ki);
        clrscr;
     For i:=1 to ki do
      begin
         writeln('Vvedite Z[',i,']');
         readln(z[i]);
      end;
 for i:=1 to ki do
    begin
         x:=xn;
  while x < xk + t do
       begin
       inc(d);
       inc(kr);
        y:=yn;
        while y<yk+t do
           begin    {5}
           inc(d);
           inc(ks);
            write(ks:2,' x=',x:6:2,' y=',y:6:2,' z[',i,']=',z[i]:6:2);
        begin {4}
          ch:=cos(y);
          ch:=ch+exp(z[i]);
        if abs(sin(y+z[i]))>t then
          begin  {3}
            cosec:=1/sin(y+z[i]);
           if abs(cosec)>t then
             begin
              zn:=exp(cos(z[i])*ln(5))+exp(y*ln(x))+z[i];
               if abs(zn)>t then
                begin
                  f:=ch/zn+sin(x)/cosec;
                  writeln('f(x,y,z) =',f:12:6);
                end
                else
              writeln('f - no exist delenie na 0')
             end
            else
              writeln('f - no exist delenie na 0')
          end {3}
        else
          writeln('f - no exist delenie na 0')
       end;  {4}
      y:=y+hy;
     if d mod 20 = 0  then
      readkey
     end;  {5}  {while y}
    x:=x+hx;
   end; {while x}
  end;   {for i}
 readkey
END.

[alex_fcsm]

если х=-2 то Ln(-2) - ошибка

[oban11]

тьфу епт как я мог такое не заметить
это если -2 ошибка то как тогда возвести в степень?

[oban11]

тьфу епт как я мог такое не заметить
это если -2 ошибка то как тогда возвести в степень?

[alex_fcsm]

В модуле Math функция power