Delphi - двумерные массивы

[ralex35]

Помогите, пожалуйста, Дан массив В (4*3). Элементы массива ввести с клавиатуры. Для ввода элементов массива использовать компонент StringGrid. Вставить перед всеми строками, в которых нет отрицательных элементов, вторую строку.

У меня вставляет вторую строку после,а не перед.Подскажите что сделать,чтобы верно работало?

procedure TForm1.Button1Click(Sender: TObject);
var i,j,l:integer;
n: boolean;
a: array[0..3] of string;
begin
StringGrid1.rowCount := 3;
for i := 0 to 3 do
a[i] := StringGrid1.Cells[i,1];
for j:=2 downto 0 do begin
n := true;
for i := 0 to 3 do
if (StrToInt(StringGrid1.Cells[i,j]) < 0) then begin
n := false;
break;
end; 
if (n) then begin 
StringGrid1.rowCount := StringGrid1.rowCount + 1; 
for l := StringGrid1.RowCount - 1 downto j+1 do
StringGrid1.Rows[l] := StringGrid1.Rows[l-1]; 
for i := 0 to 3 do 
StringGrid1.Cells[i,j+1] := a[i]; 
end; 
end; 
end;
end.

[Serge_Bliznykov]

насколько я понимаю, нужно только одну строчку исправить:
StringGrid1.Cells[i, j] := a[i];

procedure TForm1.Button1Click(Sender: TObject);
var i, j, l: integer;
  n: boolean;
  a: array[0..3] of string;
begin
  StringGrid1.rowCount := 3;
  for i := 0 to 3 do
    a[i] := StringGrid1.Cells[i, 1];
  for j := 2 downto 0 do begin
    n := true;
    for i := 0 to 3 do
      if (StrToInt(StringGrid1.Cells[i, j]) < 0) then begin
        n := false;
        break;
      end;
    if (n) then begin
      StringGrid1.rowCount := StringGrid1.rowCount + 1;
      for l := StringGrid1.RowCount - 1 downto j + 1 do
        StringGrid1.Rows[l] := StringGrid1.Rows[l - 1];
      for i := 0 to 3 do
        StringGrid1.Cells[i, j] := a[i];
    end;
  end;
end;

[ralex35]

Спасибо)