найти ошибку

[Яська]

y= ((x[i]+1.5)/abs(x[i]+1.5)*exp(1/3*ln(abs(x[i]+1.5))))/exp(x[i]),если x<0
y= ln(x[i]+exp(x[i]*ln(2))-3) , если 0<x<5.25
y=sin(x[i])/cos(x[i]), если x>5.25
X [-12,5…10,75]
шаг=0.25

считает первый у,остальные не хочет(



uses Crt;
var a,x,y:array [1..93] of real;
flag,i:byte;

Begin
ClrScr;
For i:=1 to 93 do

begin
x[i]:=-12.5;
While x[i]<=10.75 do
begin
if x[i]<0 then if exp(x[i])=0 then flag:=0 else begin
y[i]:=((x[i]+1.5)/abs(x[i]+1.5)*exp(1/3*ln(abs(x[i]+1.5))))/exp(x[i]);
flag:=1;
end
else
if x[i]<5.25 then begin
a[i]:=x[i]+exp(x[i]*ln(2))-3;
if a[i]<0 then flag:=0 else begin
y[i]:=ln(a[i]);
flag:=1;
end
end

else begin
if x[i]=2*PI then writeln('x[i]-osobaya tochka')
else begin
if x[i]>5.25 then if cos(x[i])=0
then flag:=0
else begin
y[i]:=sin(x[i])/cos(x[i]);
flag:=1;
end;
end
end;
if flag=0 then writeln ('x[i]=', 'fynkcia ne sywestvyet')
else writeln ('x[i]=',x[i]:2:2, ' y[i]=',y[i]:2:2);
x[i]:=x[i]+0.25;
readln;
end;
end;
end.

[Serebro]

Сообщение от Яська

....
begin
if x[i]<0 then if exp(x[i])=0 then flag:=0 else begin
...

Это условие никогда не будет выполнено!