паскаль,не могу найти ошибку в программе

[Ильгизуля]

Здравствуйте!
Помогите , пожалуйста найти ошибки в программах.
Первая программа реализует метод Ньютона поиска минимума функции и она зависает почему то, а вторая программа выводит ошибку в 14 строке( она реализует метод Эйлера).

 program _;
const e=0.01; p=0.004;
var
x,x1,x2,y1,y2,f,a,b:real;
begin
a:=0; b:=3;
repeat
x1:=1;
y1:=5*x1*x1*x1+30*x1*x1+6;
y2:=(9*sqr(x1)*sqr(x1)*sqr(x1)+69*sqr(x1)*sqr(x1)*x1-120*sqr(x1)*sqr(x1)-72*sqr(x1)-360*x1)/(4*sqrt(x1*x1*x1+3)*(x1*x1*x1+3));
x2:=x1-y1/y2;
x1:=x2;
until y1<e;
writeln('Минимальное значение f(x) = при x  = ',x:8:8);
end.


program _;
const e=0.01;
var
x,x1,x2,y1,y2,f,a,b,z1,z2,l,x0,y0:real;
begin
a:=1; b:=5;
repeat
x1:=a;
x2:=b;
z1:=5*x1*x1*x1+30*x1*x1+6;
z2:=5*x2*x2*x2+30*x2*x2+6;
if z1>z2 then l:=z1
else l:=z2;
y1:=(x1+10)*(sqrt(x1*x1*x1+3));
y2:=(x2+10)*(sqrt(x2*x2*x2+3));
x0:=(1/(2*l))*(y1-y2+l*(x1+x2));
y0:=0.5*(y1-y2+l*(a-b));
a:=x0;
a:=y0;
until l<e;
writeln('Минимальное значение f(x)  при x  = ',x:8:8);
end.

[s-andriano]

Вы хотите, чтобы мы помогли Вам найти ошибки в программах или чтобы мы нашли их вместо Вас?
Если первое, то могу сообщить, что искать ошибки в правильно отформатированном тексте намного проще, чем в неотформатированном.

Итак, помогаю Вам советом:
1. Отформатируйте текст программ.
2. Напишите комментарии.

[Joker_vad]

repeat
x1:=1;

каждый раз в начале цикла соответственно у1=41....
Это по первой
По поводу второй что за ошибка то