работа со списком

[ник123123]

помогите плиз, вроде написал , а не работает. где ошибся? чего не хватает?

Каждая запись списка содержит пол, имя, возраст, рост, вес, а также требования к партнеру:

наименьший и наибольший возраст, наименьший и наибольший вес, наименьший и наибольший рост.

Объединить эти списки в список пар с учетом требований к партнерам без повторений.

ниже код кнопки, которая обрабатывает данное событие :

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k:integer;
begin
  j:=0; i:=0;   k:=2;
 for i:=1 to 4 do
 for j:=5 to 10 do
 
 if  (stringgrid2.Cells[i,k]>=stringgrid1.Cells[i,j]) and
    (stringgrid2.Cells[i,k]<=stringgrid1.Cells[i,j+1])
  then  k:=k+1; j:=j+2;
  memo1.Lines.add(StringGrid1.Cells[0, i]+StringGrid2.Cells[0, i]);
  i:=i+1 ;
 //else
  //  i=i+1;
  end;
 
end.

[min@y™]

Классический пример по теме "почему нинада использовать визуальные компоненты для хранения и обработки данных".
автор, Как звучит оригинал задания?