Выдает ошибку

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..100] of real;
i,k:integer;
begin
randomize;
for i:=1 to 100 do
k:=0;
for i:=1 to 100 do
if abs (a[i])>1 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to 100 do
edit1.Text:=floattostr(i);
 
end;
 
end.

edit1.Text:=floattostr(i);

procedure TForm1.Button1Click(Sender: TObject);
var a:array of real;
    n,i,i1,i2:integer;
    s:real;
begin
val(Edit1.text,n,i);
if (i<>0)or(n<3) then
 begin
  ShowMessage('Не верно введен размер массива, повторите');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end; 
n:=strtoint(edit1.text);
Setlength(a,n);
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=-5+15*random;
  edit2.text:=edit2.text+floattostrF(a[i],ffFixed,5,2)+'  ';
 end;
i:=0;
i1:=-1;
i2:=-1;
while (i<=n-1)and(i2=-1) do
 begin
  if a[i]<0 then
   if i1=-1 then i1:=i
   else if(i1>-1)and(i2=-1) then i2:=i;
  i:=i+1;
 end;
if i1=-1 then Edit3.Text:='Нет отрицательных элементов'
else if i2=-1 then Edit3.Text:='Нет двух отрицательных элементов'
else if i2-i1=1 then Edit3.Text:='Сумма=0'
else
 begin
  s:=0;
  for i:=i1+1 to i2-1 do
  s:=s+a[i];
  Edit3.Text:='Сумма='+floattostrF(s,ffFixed,5,2)
 end; 
end;