Проблема с циклом

[DsDevis]

Доброго дня.
Помогите разобраться пожалуйста с этим заданием.

вот мой код:

PROGRAM evgen_2;
var
x, y, e: integer;
l, t, d, p1, p2, ch, zn,sum, pro: real;
begin
write ('x= ');
readln (x);
write ('y= ');
readln (y);
write ('e= ');
readln (e);
if x>y then
       begin
       ch:=10*y-(exp(ln(e)*x))*ln(exp(ln(x)*5));
       p1:=8*sqr(sin(x)/cos(x));
       p2:=cos(x+y)/sin(x+y);
       zn:=sqrt(p1-p2);
       l:=ch/zn;
       writeln ('L= ',l:1:4);
       end
else
       begin
       t:=0; sum:=0; pro:=0;
       repeat
             begin
             d:=(t*cos(x+y))/(t+1);
             if d>0 then
                sum:=sum+d;
             if d<0 then
                pro:=pro*d;
             t:=t+0.5;
             end;
             until t=10;
             writeln ('сумма= ',sum:1:3);
             writeln ('произведение= ',pro:1:3);
       end;
       readln;
end.

Проблема в выделенном участке, программа их пропускает при обходе по F8. Где я ошибся?
если переместить строки в выделенном участке вот таким образом:

]if d>0 then sum:=sum+d;
             if d<0 then pro:=pro*d;

тогда при выводе sum и pro они оба становятся равны нулям. Где же косяк?

[Shift_sk]

 t:=0;
d:=(t*cos(x+y))/(t+1);

у тебя d всегда равно нулю!!!!

[DsDevis]

а как же

t:=t+0.5;

?
В условии задачи t шагает от 0 до 10. В первом прогоне цикла оно должно становиться равным 0,5, разве нет?
UPD
На соседнем форуме подсказали pro приравнять в единице, косячок, который я не заметил ранее.

[puporev]

t:=0; sum:=0; pro:=1;

[DsDevis]

Спасибо. При таком раскладе вроде работает.
Непонятно еще одно. при прогоне по Ф8 в первый виток цикла в строке

d:=(t*cos(x+y))/(t+1);

возникает ошибка 205, как такое может быть, если при первом витке это выражение = 0?

[puporev]

d:=(t*cos(x+y))/(t+1);
             if d>0 then
                sum:=sum+d;
             if d<0 then

А если d=0 при t=0?

[DsDevis]

Спасибо. Добавил в условие

if d=0 then sum:=sum+0;

Поведение цикла стало вменяемым, но при многократной прогонке по Ф8 печатаются разные результаты sum и pro. Может быть тупит scholl pack, у меня win7x64. Попробую на другой машине с ХР.

[puporev]

if d=0 then sum:=sum+0;

А не проще тогда

if d>=0 then
                sum:=sum+d;

[DsDevis]

Я пробовал так на school pack, цикл сходил с ума, на машине с ХР и нормальным ТП7 все идет на ура. Спасибо всем за помощь.