Найти первый и второй отрицательный элемент

procedure TForm1.Button2Click(Sender: TObject);
var
m:integer;
i1:integer;
i2:integer;
begin
i1:=0;
i2:=0;
//первый отрицательный
for i:=0 to 10 do
begin
if (i1=0) and (a[i] < 0) then i1:=i;
end;
if i1 <> 0 then
Memo1.Lines.Add('первый'+ FloatToStr(a[i1]));
 
//второй отрицательный
for i:=1 to 10 do
begin
if (i2=0) and (a[i-1] < 0) then i2:=i;
end;
if i2 <> 0 then
Memo1.Lines.Add('второй '+ FloatToStr(a[i2]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  m, i1, i2 : integer;
begin
  i1 := 0;
  i2 := 0;
 
  for i := 0 to 10 do
  begin
    if (i1 = 0) and (a[i] < 0) then
      i1 := i;
    if (i1 <> 0) and (i2 = 0) and (a[i] < 0) then
      i2 := i;
  end;
 
  if i1 <> 0 then
    Memo1.Lines.Add('первый'+ FloatToStr(a[i1]));
 
  if i2 <> 0 then
    Memo1.Lines.Add('второй '+ FloatToStr(a[i2]));
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  m, i, i1, i2 : Integer;
  a : array[1..10] of Integer;
begin
  i1 := 0;
  i2 := 0;
 
  Randomize;
  for i := 1 to 10 do
    a[i] := Random(100) - 50;
 
  for i := 1 to 10 do
  begin
    if (i1 = 0) and (a[i] < 0) then
      i1 := i;
    if (i1 <> i) and (i2 = 0) and (a[i] < 0) then
      i2 := i;
  end;
 
  if i1 <> 0 then
    Memo1.Lines.Add('ïåðâûé = ' + FloatToStr(a[i1]));
 
  if i2 <> 0 then
    Memo1.Lines.Add('âòîðîé = ' + FloatToStr(a[i2]));
end;

  i1 := -1;
  i2 := -1;
...
  if i1 >= 0 then
    Memo1.Lines.Add('первый = ' + FloatToStr(a[i1]));
 
  if i2 >= 0 then
    Memo1.Lines.Add('второй = ' + FloatToStr(a[i2]));
end;