Нахождение корня методом простой итерации

Program Denis1;
uses crt;
  const e=2.71828183;
var
  x0,eps,a:real;
  y,x,r,b:double;
  km,st1,i,n:byte;
  xmas:array [1..25] of double;
  ymas:array [1..25] of double;
begin
  clrscr;
  {Находим B, решая методом итерации}
  writeln('Введите x в интервале [0;8], eps, km');
  readln(x0,eps,km);
  x:=(x0*x0-exp(ln(e)*(-x0))+1)/2;;
  st1:=0;
  writeln('   итерации:');
  for i:=1 to km do
    begin
      y:=(x*x-exp(ln(e)*(-x))+1)/2;
      r:=abs(y-x);
      x:=y;
      if r<eps then
      begin
        st1:=1;
        i:=km;
      end;
      writeln('   ',y:6:4);
    end;
  if st1<>1 then
    writeln('   Решение не найдено')
  else
    begin
      {Если есть корень, решаем систему}
      b:=y;
      writeln('   Корень B=',b:4:2);
      write('Введите a: '); readln(a);
      write('Введите n: '); readln(n);
      for i:=1 to n do
        begin
          write('   x[',i,']= ');
          readln(xmas[i]);
        end;
      for i:=1 to n do
        begin
          if xmas[i]>1 then
            begin
              ymas[i]:=(sqr(xmas[i]))/(sqrt(a*xmas[i]+b));
              writeln('   y[',i,']= ',ymas[i]:4:2);
            end
          else
            begin
              ymas[i]:=b*exp(ln(e)*a*xmas[i]);
              writeln('   y[',i,']= ',ymas[i]:4:2);
            end;
        end;
    end;
    readln;
end.