Не правильно составлен цикл While и добавление элементов в массив

program p8;
const w=100;
var aa:array[1..w] of real;
a,b,i,n,j,m:integer;
e,y,x,h,z:real;
begin
e:=2.718;
writeln('Интервал');
write('От: ');
readln(a);
write('До: ');
readln(b);
write('Введите шаг: ');
readln(h);
 
 
if a<0 then
  n:=abs(a)-b;
if a>0 then
  n:=b-a;
x:=h;
while x<=b do
begin
  y:=(1+2*x*x)*power(e,x*x);
  for i:=1 to n do
    aa[i]:=y;
  x:=x+h;
  write(y:0:2, ' ');
  end;
 
 
writeln;
writeln('---------------');
writeln('Линейный поиск');
z:=0; i:=1;
While (i<=n) and (aa[i]<>z) do i:=i+1;
  if i=n+1 then writeln('Корня нету') 
  else writeln('Корень есть');
writeln('---------------');
writeln('Поиск делением пополам');
i:=1; j:=n;
While i<j do begin
  m:=i+(j-i) div 2;
  if aa[m]=z then begin
    i:=m;
    break;
  end;
  if aa[m]<z then i:=m+1 
             else j:=m;
end; 
if aa[i]=z then writeln('Корень есть')
          else writeln('Корня нету');
writeln('---------------');
end.

repeat
writeln('Введите интервал a<b');
readln(a,b);
until a<b;
repeat
write('Введите шаг h<',b-a,' h=');
readln(h);
until h<b-a;
x:=a;
n:=0;
while x<=b do
 begin
  y:=(1+2*x*x)*exp(x*x);
  n:=n+1;
  aa[n]:=y;
  x:=x+h;
  writeln('x=',x:0:2,' y=',y:0:2);
 end;