Forel-1 (Delphi-7 win)

[D!ana]

Если кто-нибудь знает алгоритмы таксономии в моем случае Forel-1 - просьба помочь мне с отладкой программы Вот код того места в программе,где у меня ошибка( Цикл репит антил не останавливается.. циклится до бесконечности..)

  procedure TForm1.Button4Click(Sender: TObject);
var i,j,d,n,m,f,l: integer;
    r: array of array of real;
    s,e,min, max: real;
    tk,p: array [1..10] of real;

begin
  n:= StrToInt(Edit1.Text);
  m:= StrToInt(Edit2.Text);
  e:= StrToFloat(Edit3.Text);
  SetLength(r,n);
  for i:=0 to n-1 do
  SetLength(r[i],m);
  for i:=0 to n-1 do begin
  for j:=0 to m-1 do begin
  r[i][j]:= StrToFloat(StringGrid3.Cells[j+1,i+1]);
  end;end;


  min:=500;
  for i:=0 to n-1 do begin
    max:=-100;
      for j:=0 to m-1 do begin
        if(r[i][j] > max) then max:=r[i][j];
      end;
    if(max < min) then min:=max;
  end;

  s:=min-e;
  for i:= 0 to n-1 do tk[i]:=0;
  f:=1;

  repeat
    max:=-1;
    for i:=0 to n-1 do begin
      p[i]:=0;
      for j:=0 to m-1 do begin
        if (r[i,j] < s) and(tk[j]=0) and(tk[i]=0)then p[i]:=p[i]+1;
      end;
      if (p[i]> max) then begin
        max:=p[i];
        l:=i;
      end;
    end;

    tk[l]:=f;
    for i:=0 to n-1 do if (r[l][i]<s) then tk[i]:=f;
    f:=f+1;
    d:=0;
    for i:=0 to n-1 do if (tk[i]=0) then d:=1;
  until  d=0;

  for i:=0 to f-1 do begin
    Memo1.Lines.Add('в таксон с центром '+IntToStr(i)+' вошли:');
      for j:=0 to n-1 do begin
        if (tk[j]=i) then Memo1.Lines.Add(FloatToStr(tk[j]));;
      end;
  end;
end;