методом простой итерации. в чем ошибка подскажите пожалуйста

var a,x,y:Real;
i:Integer;
begin
x:=StrToFloat(Edit1.Text);
i:=0;
if y(x)=0 then Memo1.Lines.Add(FloatToStr(x))
else while not(y(x)=0) do
begin
x:=2*x-3*ln(x)-3;
x:=a;
inc(i);
if i:=StrToInt(Edit2.Text) then Break
end;
Memo2.Line.Add(IntToStr(i)+''+FloatToStr(x);
end;