Сравнение массивов до заданной разницы (Delphi7)

[giga_person]

Ф-я должна сравнивать два одномерных массива до тех пор, пока разница между ними не будет равна atcn, и в случае удачи присвоить 1, arazm - размеры массивов. Подскажите, как её исправить, чтобы она работала правильно, до полного выполнения условия, а не выполняла arazm-шагов и останавливалась.

function sravn_matr(aa, ab : TStringGrid; arazm : integer; atcn : real): real;
 var
   i, j : integer;
begin

 for j := 1 to arazm do
  begin
    if ((StrToFloat(aa.Cells[0,j-1]) - StrToFloat(ab.Cells[0,j-1])) <= atcn) or
       (aa.Cells[0,j-1] = ab.Cells[0,j-1])
      then sravn_matr := 1
      else sravn_matr := 0;
  end;

end;

[edmynt]

function sravn_matr(aa, ab : TStringGrid; arazm : integer; atcn : real): real;
 var
   i, j : integer;
begin

 for j := 1 to arazm do
  begin
    if ((StrToFloat(aa.Cells[0,j-1]) - StrToFloat(ab.Cells[0,j-1])) <= atcn) or
       (aa.Cells[0,j-1] = ab.Cells[0,j-1])
      then 
     begin
      sravn_matr := 1
     break;
      end;
      else sravn_matr := 0;
  end;

end;