Ошибка в программе,вещественное деление на 0 - Turbo Pascal

program lr4;
const
 x:array[1..11]of real=(0.01,0.02,-0.5,2.31,0,1.0,0,-1.25,-1.0,-0.77,0);
 v1=-25.3;
 var
  i,q,c,k1,k3:integer;
  r3,r4:array[1..100]of real;
   y, p,g3,a0,a1,max:real;
 begin
    p:=1;a1:=0;a0:=0;max:=-10e21;k1:=0;k3:=0;
 for i:=1 to 11 do begin
    if exp(sin(x[i]))>1.5
     then
       y:=x[i]*x[i]*cos(x[i])-0.7*10*10*10*exp(sin(x[i]))/(1.6+0.9*exp(0.9*ln(10))*x[i]*x[i]) 
    else
       y:=5.67*exp(-3*ln(10))*exp(1/3*ln(abs(x[i])))+2.14*exp(sin(x[i]));
   a0:=a0+y;
   if y<v1
       then begin
          a1:=a1+y;
          k1:=k1+1;
                  end;
     if y<v1 
        then begin
           p:=p*y;
           k3:=k3+1;
                  end;
     if max<y 
       then
            max:=y;
      if y>0 
        then begin
          q:=q+1;
            r4[q]:=y 
           end else 
                begin
            c:=c+1;
            r3[c]:=y;
                    end;
                   end;
     writeln('max=',max:4:3);
         a0:=a0/11;
  writeln('a0=',a0:4:3);
         if k1>0 
            then begin 
               a1:=a1/k1;
  writeln('a1=',a1:4:3);
            end;
       if k3>0 then begin 
            g3:=exp(1/k3*ln(abs(p)));
                  writeln('g3=',g3:5:4);
                       end;
    for i:=1 to c do
             writeln('r3[',i,']=',r3[i]:4:3);
  for i:=1 to q do
               writeln('r4[',i,']=',r4[i]:16:13);
end.