Проблема с квадратным массивом в Delphi.

[v0v41k]

Задача требует вытянуть рядок в квадратном массиве 8*n, если элемент a[1,j] равна 1 или 2 (в массиве все строки начинаются на 1 или 2) , а элемент a[2,j] равен едиту. Мой вариант кода компилируется но не выводит строку.

if ComboBox1.ItemIndex=2 then
begin
for k:=1 to j do
tm:=t[1,k];
    if tm=lk1 then     //проверяет чему ровна 1-я ячейка, в даном случее 1.
    begin
    s:=t[2,k];
    Edit1.Text:=t[2,k]; Edit2.Text:=t[3,k]; Edit3.Text:=t[4,k]; Edit4.Text:=t[5,k]; Edit5.Text:=t[6,k]; Edit6.Text:=t[7,k]; Edit7.Text:=t[8,k];
    end;
end
else
if combobox1.ItemIndex=3 then
begin
for k:=1 to j do
tm:=t[1,j];
    if tm=lk2 then
    begin
        Edit1.Text:=t[2,k]; Edit2.Text:=t[3,k]; Edit3.Text:=t[4,k]; Edit4.Text:=t[5,k]; Edit5.Text:=t[6,k]; Edit6.Text:=t[7,k]; Edit7.Text:=t[8,k];
    end;
end;

[Stilet]

Что значит вытянуть?

[v0v41k]

Как видно из кода видать элементы рядка 'k'