Добавить условие в цикл

[9tech]

вот программа

program lab8;
uses crt;
var x,xi1,y,yi1,h,Yh,fi,Ytmp,e:real;massX,massY:array[1..100]of real;
check,i:integer;
begin
clrscr;
x:=0.6;y:=0.8;h:=0.1;xi1:=1.6;
massX[1]:=0.6;massY[1]:=0.8;
check:=1;
e:=0;
while x<=1.6 do
begin
check:=check+1;

Yh:=y+h*(sqr(x)-x*y+y);
Ytmp:=y+h/2*(sqr(x)-x*y+y);
y:=Ytmp+h/2*(sqr(x+h/2)-(x+h/2)*Ytmp+Ytmp);
e:=Yh-y;

x:=x+h;
massX[check]:=x;
massY[check]:=y;
end;
for i:=1 to 11 do writeln('x=',massX[i]:1:1,' y=',massY[i]:1:4);
readkey;
end.

работает нормально. но нужно, чтобы e сравнивалось с 0.01.
если меньше, то идем дальше. если больше/равно, то считаем заново с h:=h/2.

пробовал добавлять условия и циклы туда, но после первого действия программа тухнет. помогите...



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.